N久没有解决的打印问题，请高手老师们帮帮忙，谢谢大家了！

学习VS交流

N久没有解决的打印问题，请高手老师们帮帮忙，谢谢大家了！

Sub 打印()
ActivePrinter = "Microsoft Office Document Image Writer"   '选择TIF图片打印机
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="1", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

上面的这个代码，只能打印第一页成图片文件
想实现：我这个附件有5页，想每一页分开打印成单独的图片文件
　　　　文件名就是，　当前页码+当前文件名
　　　　保存路径：D盘

请高手老师们帮帮忙，谢谢大家了！



　 测试文件.rar (18.76 KB, 下载次数: 8)

2015-2-6 22:53 上传

点击文件名下载附件

　　　

学习VS交流

请高手老师们帮帮忙，谢谢大家了！

loquat

重点在pages和filename属性吧

学习VS交流

loquat 发表于 2015-2-7 13:36
重点在pages和filename属性吧

麻烦老师帮我解决下这个问题，谢谢你了老师！

loquat

抱歉啊，我电脑上试了一下，这个组件有问题，没法打印

学习VS交流

loquat 发表于 2015-2-9 10:27
抱歉啊，我电脑上试了一下，这个组件有问题，没法打印

谢谢你了老师！

wudixin96

1. Sub 打印()
   
2. ActivePrinter = "Microsoft XPS Document Writer"   '选择TIF图片打印机
   
3. For i = 1 To 5
   
4.     ActiveDocument.PrintOut OutputFileName:="d:\我的XPS" & i & ".xps", Range:=wdPrintRangeOfPages, Item:= _
   
5.     wdPrintDocumentContent, Copies:=1, Pages:=i & "-" & i, PageType:=wdPrintAllPages, _
   
6.     Background:=True, PrintToFile:=True
   
7. Next
   
8. End Sub

复制代码

类似这样吧，我的虚拟打印机是 Microsoft XPS Document Writer

学习VS交流

wudixin96 发表于 2015-2-9 11:19
类似这样吧，我的虚拟打印机是 Microsoft XPS Document Writer

非常感谢老师的帮助，就是想要这样的
预祝老师新年快乐，万事如意！

学习VS交流

wudixin96 发表于 2015-2-9 11:19
类似这样吧，我的虚拟打印机是 Microsoft XPS Document Writer

Sub 打1()

ActivePrinter = "Microsoft Office Document Image Writer"   '选择TIF图片打印机

For i = 1 To 5

ActiveDocument.PrintOut OutputFileName:="d:\我的XPS" & i & ".tif", Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:=1, Pages:=i & "-" & i, PageType:=wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:=False

Next

End Sub


老师你好，我改成了，TIF图片虚拟打印机，也能正确的运行

但，有一个就是，打印完后，每一张图片，都要进入预览，怎样不让其预览呀，请老师再帮帮我下，谢谢你了老师了！

wudixin96

学习VS交流 发表于 2015-2-9 16:00
Sub 打1()

ActivePrinter = "Microsoft Office Document Image Writer"   '选择TIF图片打印机

不好意思，我这测试不出这个问题，可能是我的操作系统是win8.1或者XPS打印机的原因吧。不存在你说的问题。