vb打印word代码怎么写

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代码怎么写