1. VB中用什么代码打印文件啊,语句怎么写啊,
VB中的几种打印方法 1. 采用Visual Basic 提供的简单打印函数PrintForm 方法。
应用程序窗体的PrintForm 方法时,Visual Basic 把窗体的位图送到当前打印机。该方法的优点在于它几乎不需要任何编程,但也有很大缺陷。
最为突出的是当低分辨率图形在高分辨率打印机上打印时,其结果令人无法满意,会产生锯齿。下面代码将在打印机上打印窗体。
Private Sub Command1_Click() ' 用PrintForm 打印 Me.PrintForm ' 打印窗体的可见区域 End Sub 2. 用Printer 对象进行高分辨率输出。但要想产生复杂的打印输出,编程较为烦琐。
Printer 对象代表系统缺省的打印机,Printer 对象支持许多由窗体和图形框所支持的属性和方法,三种对象都有画线和画方框。应用程序可用以下代码在Printer 对象上画出一平方英寸的方框。
它离左上角二英寸。注意:打印机以twips 来测量距离。
每英寸有1440 个twips。 Printer.Line(2 *1440,2 *1440) -Step(1440,1440), ,B 打印机、从窗体和图形框都有Circle、PaintPicture、Print、Pset、TextHeight、TextWidth 方法。
使用这些方法,应用程序可以为打印机生成高分辨率输出。 打印文本直接用Print 方法,见下列代码: Printer.Print "Hello,China ComputerWorld!" ' 打印字符串 Printer 对象还有一些窗体和图形框都没有方法: NewPage 告诉打印机,程序对当前输出页的发送已经结束,Printer 对象应开始新的一页。
EndDoc 告诉VB,程序创建文档结束,VB 应将它发送到物理打印机上打印。 KillDoc 取消当前打印作业。
应用程序应该终止由EndDoc 和KillDoc 所设定的每个打印作业。 Zoom 属性用于定义打印输出的缩放因子。
Copies 属性用于定义打印的副本数目。 3. 采用直接将数据传送打印机的方法进行打印输出。
有两种方法将数据送往打印机。第一种是用Print #方法,就像将数据写入一个文件一样。
另一种方法写端口,但不是送文本,而是送特定的PCL 语言,PCL 表示打印控制语言,它是一种特殊语言,用转义代码来控制打印机的具体动作。因为此方法太烦琐,本文不做太多介绍。
4. 如果你在编程时用到了RichTextBox 控制,那么你可以使用该控件的SelPrint 方法来打印,使用非常简单。下面一段代码即用RichTextBox 控件的SelPrint 方法来完成打印。
Private Sub Command3_Click() 'SelPrint 方法 CommonDialog1.Flags=cdlPDReturnDC +cdlPDNoPageNums If RTF1.SelLength = 0 Then 'RTF1 为窗体的RichTextBox 控制 CommonDialog1.Flags = CommonDialog1.Flags +cdlPDAllPages Else CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection End If CommonDialog1.CancelError = True On Error Resume Next CommonDialog1.ShowPrinter If Err.Number = cdlCancel Then Exit Sub If Err.Number <> 0 Then Beep MsgBox "Error printing file." &vbCrLf +Err.Description, vbOKOnly +vbExclamation, “Printing Error!" Exit Sub End If Printer.Print "" RTF1.SelPrint CommonDialog1.hDC ' 打印RTF1 控件的可见区域 End Sub 上面代码先进行打进设置,再进行打印。如果不需要设置,采用下面代码更为简单: RTF1.SelPrint Printer.hDC ' 打印RTF1 控件的可见区域 5. 可以在VB 中调用Word 97 提供的OLE 自动化服务,利用Word 97 强大的打印功能来完成VB 打印,笔者认为这是最令人满意的方法。
下面代码说明VB 如何与Word 集成。Private Sub Command4_Click() ' 调用Word 打印 Dim objWord As Object Const CLASSOBJECT = "Word.Application" On Error GoTo objError Set objWord = CreateObject(CLASSOBJECT) objWord.Visible = True objWord.Documents.Add With objWord.ActiveDocument.Paragraphs.Last.Range.Bold = False.ActiveDocument.Paragraphs.Last.Range.Font.Size =20.ActiveDocument.Paragraphs.Last.Range.Font.Name ="黑体".ActiveDocument.Paragraphs.Last.Range.Font.ColorIndex==4.ActiveDocument.Paragraphs.Last.Range.Text ="我是计算机世界读者!" End With Clipboard.Clear Clipboard.SetText "通过剪切板向WORD 传送数据!" objWord.Selection.Paste objWord.PrintPreview = True ' 预览方式 'objWord.PrintOut' 执行打印 'objWord.Quit' 退出Word Exit Sub objError:If Err <> 429 Then MsgBox Str $(Err) &Error $ Set objWord = Nothing ' 不能创建Word 对象则退出 Exit Sub Else Resume Next End If End Sub 6. 用VC 编制DLL 模块完成打印。
在VB 中调用该模块,用混合编程方法进行打印输出。因涉及VC 编程比较烦琐,这里不再讨论。
2. VB按钮怎么实现打印功能,打印word文档
在Word2007中,用户可以通过设置打印选项使打印设置更适合实际应用,且所做的设置适用于所有Word文档。在Word2007中设置Word文档打印选项的步骤如下所述:
步骤/方法
第1步,打开Word2007文档窗口,依次单击Office按钮→“Word选项”按钮。
第2步,在打开的“Word选项”对话框中,切换到“显示”选项卡。在“打印选项”区域列出了可选的打印选项,选中每一项的作用介绍如下:
(1)选中“打印在Word中创建的图形”选项,可以打印使用Word绘图工具创建的图形;
(2)选中“打印背景色和图像”选项,可以打印为Word文档设置的背景颜色和在Word文档中插入的图片;
(3)选中“打印文档属性”选项,可以打印Word文档内容和文档属性内容(例如文档创建日期、最后修改日期等内容);
(4)选中“打印隐藏文字”选项,可以打印Word文档中设置为隐藏属性的文字;
(5)选中“打印前更新域”选项,在打印Word文档以前首先更新Word文档中的域;
(6)选中“打印前更新链接数据”选项,在打印Word文档以前首先更新Word文档中的链接,
第3步,在“Word选项”对话框中切换到“高级”选项卡,在“打印”区域可以进一步设置打印选项,选中每一项的作用介绍如下:
(1)选中“使用草稿品质”选项,能够以较低的分辨率打印Word文档,从而实现降低耗材费用、提高打印速度的目的;
(2)选中“后台打印”选项,可以在打印Word文档的同时继续编辑该文档,否则只能在完成打印任务后才能编辑;
(3)选中“逆序打印页面”选项,可以从页面底部开始打印文档,直至页面顶部;
(4)选中“打印XML标记”选项,可以在打印XML文档时打印XML标记;
(5)选中“打印域代码而非域值”选项,可以在打印含有域的Word文档时打印域代码,而不打印域值;
(6)选中“打印在双面打印纸张的正面”选项,当使用支持双面打印的打印机时,在纸张正面打印当前Word文档;
(7)选中“在纸张背面打印以进行双面打印”选项,当使用支持双面打印的打印机时,在纸张背面打印当前Word文档;
(8)选中“缩放内容以适应A4或8.5”X11”纸张大小”选项,当使用的打印机不支持Word页面设置中指定的纸张类型时,自动使用A4或8.5”X11”尺寸的纸张;
(9)“默认纸盒”列表中可以选中使用的纸盒,该选项只有在打印机拥有多个纸盒的情况下才有意义。
3. 急
VB实现打印WORD文档功能的思路如下:
一、设计一个打印模板文件,在需要填写数据的地方作标记;
二、在打印前,可复制模板文件到一个临时文件,然后打开此临时模板文件,在标记处通过替换功能填写数据。
三、显示打印选项对话框,进行打印输出。
以下是示例源代码,请下载参考:
/data/2010-09/2010september18th165312_word_print.rar
4. vb中WORD怎么打印
'************************************* 声明对象
Dim WordAppX As New Word.Application
Dim WordDocX As Word.Document
'*************************************
'************************************* 加载文件
Set WordAppX = New Word.Application
Set WordDocX = WordAppX.Documents.Add("C:\11.doc")
'************************************************
'************************************* 打印退出
WordDocX.PrintOut False, , , , , , , 1
WordAppX.Quit False
'*************************************
'************************************* 卸载对象
Set WordAppX = Nothing
Set WordDocX = Nothing
5. vb如何进行word页面设置的代码
'工程引用 Microsoft Word 12.o Objedt Library
Private Sub Command1_Click()
Dim wd As New Word.Application
wd.Documents.Add DocumentType:=wdNewBlankDocument
With wd.Selection
.Font.Spacing = 2
.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中
.Font.Size = 16 '字号
.Font.Name = "宋体"
.Font.Bold = True '粗体
.TypeText "这是一个VB编辑word的测试。" '输出字符
.Font.Bold = False
.TopMargin = CentimetersToPoints(1.27) '页面上边距
.BottomMargin = CentimetersToPoints(1.27) '页面下边距
.LeftMargin = CentimetersToPoints(1.27) '页面左边距
.RightMargin = CentimetersToPoints(1.27) '页面右边距
End With
wd.Visible = True
wd.ShowMe
Set wd = Nothing
End Sub
6. 怎样在VB中输出word文档
Dim WordApp As Word.Application'定义word应用变量
Dim newDoc As Word.Document'定义word文档变量
Set WordApp = CreateObject("Word.Application")'创建新的word应用
WordApp.Visible = True
With WordApp
Set newDoc = .Documents.Add(App.Path & "\报告单\食品水质报告.Doc")'在创建的word应用中新建一个新的word文档
With .Selection
.GoTo wdGoToBookmark, , , "bh" bh为word文档中的对应位置的标签名
.TypeText PrnBID'写内容
.GoTo wdGoToBookmark, , , "GoodsName" 'GoodsName为word文档中的对应位置的标签名
.TypeText PrnGName'写内容
Set MyRS = Nothing
End With
' newDoc.SaveAs FileName:=FilePath
End With
' If theError = 429 Then WordApp.Quit
Set WordApp = Nothing
在事先做好的word文档中要写内容的位置设定好标签,然后在程序中找到标签,再写入数据
7. vb中的打印代码
最简单的,就是:
Me.PrintForm
否则,一两句话还说不清。
错误肯定是严重的!
For i = 0 To DataGrid1 - 1
你这个 DataGrid1 叫系统怎么理解?DataGrid1是这个网格控件的名字对吧?名字还可以减1啊?那么名字减1等于几呢?
你要这样打印结果的话,我告诉你要这样:DataGrid控件有列属性(Col)和行属性(Row),这样就可以获得某单元格的内容了:这样:
要定位到列和行,才能获得指定的单元格值:并且注意,行与列号都是从0开始编号!
DataGrid1.Col = 0
DataGrid1.Row = 0
Print DataGrid1.Text '这样就能获得首行首列单元格的内容
所以要获得全部内容,要使用循环。
但是,换个思路,你这个DataGrid控件里的数据,应该来自于记录集对象,那直接用对象的属性来获得就可以了呀!
转载请注明出处51数据库 » vb打印word代码怎么写