基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

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