求打印指定文件的代码

lazybird

够分发悬赏了。

各位老师，能不能发一个打印指定文件夹里面所有文件（均为PDF）的代码，多谢了。
要求能指定某一台打印机，然后全部按默认设置打就行了。
论坛里都是打印报表的，找不到打印文件的例子。

roych

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub test()

Shell "C:\Program Files (x86)\Foxit Software\Foxit Reader\FoxitReader.exe /p  " & CurrentProject.Path & "\报表1.pdf", vbHide
End Sub

把里面的路径改为你的PDF阅读器路径（我的电脑装不了ADOBE的PDF阅读器）和文件名，批量处理时，加上文件夹的循环语句（GetFolder.Files等等），由于我的电脑没有连接打印机，只能用XPS Document Viewer，看不到效果。

lazybird

多谢版主，按照你的提示测试了一下，执行后打开 Adobe Reader 的打印界面，按一下“打印”才能打印，这样就无法执行批量循环打印了。
我的需求是不需要打开 Adobe Reader ，直接把文件发送到打印机打印就可以了。就好像你在Windows界面下选定几个文件，然后右键选“打印”就可以全部打印出来一样的效果。

风中漫步

代码操作Word试过吗?
现在的可能都支持PDF了吧

lazybird

回楼上的，可以贴下代码吗，谢谢

灰太郎

11111