时间：2003-12-20 22:54 来源：艾赛思应用网 作者：Alex 阅读：次

Private Sub 命令0_Click()
Dim WkWord As New Word.Application
Dim WkDoc As Word.Document
Set WkDoc = WkWord.Application.Documents.Open("c:\my documents\文档.doc")
WkDoc.PrintOut False
WkDoc.Close
WkWord.Quit
End Sub

在printout后面加上FLASE，会等打完之后再关闭。

(责任编辑：admin)

上一篇：妙用Office合并列数据 快速完成报表
下一篇：浅析Access与Office其他成员之间交流数据

• ·Access 获取office的安装路径【函数】
• ·导入导出Excel(.Xlsx)或(.Xls)数据到SQ
• ·浅析Access与Office其他成员之间交流数
• ·Access2003设置压缩和修复数据库的方法
• ·Access2003设置启动窗体与恢复原始设置
• ·妙用Office合并列数据 快速完成报表
• ·对 Microsoft Office 命令栏进行更多编
• ·SQL Server日期计算
• ·SQL语法参考
• ·XLS与MDB文件格式互换全攻略
• ·在Access中调用Excel无法彻底关闭
• ·Access导出到Excel提速之法
• ·Access朗读任意文本/使Access真人发声
• ·解决ACCESS XP 粘贴数字到EXCEL XP会变
• ·用VBA代码下载网络上的文件
• ·把子窗体的内容复制到EXCEL（子窗体可