VB打印WORD的问题??
打印出来的文件，打不开，说文件类型不对或不支持。有10.6M大小。看不到内容，二进制显示基本上是F代码，意味的是空的。正常界面打印是151K，打开很正常，文件内容正确。
Dim wdo As New Word.Application
wdo.Documents.Open "c:\c.doc"
wdo.PrintOut Background:=True, _
Append:=False, _
Range:=Word.WdPrintOutRange.wdPrintAllDocument, _
Copies:="1", _
PageType:=Word.WdPrintOutPages.wdPrintAllPages, _
OutputFileName:="c:\test.tif", _
PrintToFile:=True
'wdo.Quit (False)
上面就是那段打印TIF文件的VB代码,原因是这样的,我用的那个虚拟打印机是可以打印TIF文件的,运行WORD程序,在里面写文字的之后,然后点击文件菜单中的打印,这样界面操作打印出来的TIF文件是正常的,可以显现出来,可是我运用上面的代码操作之后,就有问题了,开始加上了wdo.Quit(False),后来想到printOut是异步的,就把他给注释掉了，通过程序操作打印出来的TIF文件，总是10.6M，这么大，而界面操作打印出来提151K，通过程序打印出来的TIF文件，通过图像处理软件打开，说是文件格式不正确或者不支持。后来查看这个TIF文件的二进制代码，发现里面除了头部一点点，其它全是F，不知道为什么，界面操作可以打印出来，程序操作打印出来的有问题呢？？？？？
问题点数：100、回复次数：8Top
1 楼yxtyxt3311（韬）回复于 2005-09-23 11:25:06 得分 0
没人知道吗???Top
2 楼wanghuibing（）回复于 2005-09-24 19:41:01 得分 0
不会
你能告诉我怎么用VB实现打印啊
谢谢Top
3 楼yxtyxt3311（韬）回复于 2005-09-27 10:59:36 得分 0
代码不是在上面吗Top
4 楼wanghuibing（）回复于 2005-09-27 19:15:04 得分 0
谢谢你啊Top
5 楼techgopher（米粒之珠也放光华）回复于 2005-09-30 03:18:25 得分 100
你用错对象了。Application和Document对象都有Print方法，但参数不一样。用Application.PrintOut时要给出FileName参数，而Document对象的PrintOut就没有这个参数。也就是说，你要么：
Dim wdo As New Word.Application
wdo.PrintOut Background:=True, _
FileName:="c:\c.doc", _
OutputFileName:="c:\test.tif", _
PrintToFile:=True
要么：
Dim wdo As New Word.Application
wdo.Documents.Open "c:\c.doc"
ActiveDocument.PrintOut Background:=True, _
OutputFileName:="c:\test.tif", _
PrintToFile:=True
另外，你要确认当前打印机是那个虚拟的，可以用Application.ActivePrinter来设置如果有必要的话。Top
6 楼yxtyxt3311（韬）回复于 2005-10-17 10:08:59 得分 0
没错呀,和你第二个方法一样呀,只不过我参数多了几个,这个没什么关系吧.....Top
7 楼yxtyxt3311（韬）回复于 2005-10-21 10:38:12 得分 0
顶Top
8 楼yxtyxt3311（韬）回复于 2005-10-25 16:12:18 得分 0
再顶Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
