VB 调用Word打印

【实例截图】

【核心代码】

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00FFFFFF&
   Caption         =   "调用Word打印"
   ClientHeight    =   2655
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   3975
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   2655
   ScaleWidth      =   3975
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "打印"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2640
      TabIndex        =   0
      Top             =   2160
      Width           =   1215
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "本例调用Word 提供的OLE自动化服务进行打印"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   0
      Width           =   3855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Command1_Click() '调用Word打印
Dim obj1 As Object
Const CLASSOBJECT = "Word.Application" '创建Word对象
On Error GoTo Err1
Set obj1 = CreateObject(CLASSOBJECT)
obj1.Visible = True
obj1.Documents.Add
With obj1
.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 = 5
.ActiveDocument.Paragraphs.Last.Range.Text = "这是一个调用Word实现打印的实例!"
End With
Clipboard.Clear
Clipboard.SetText "本例是通过剪切板向WORD传送数据!"  '文本
obj1.Selection.Paste
obj1.PrintPreview = True '预览方式
obj1.PrintOut ' 执行打印
obj1.Quit '退出Word
Exit Sub
Err1:
If Err <> 429 Then
MsgBox Str$(Err) & Error$
Set obj1 = Nothing ' 不能创建Word对象则退出
Exit Sub
Else
Resume Next
End If
End Sub