Office中国论坛/Access中国论坛

标题: 求打印指定文件的代码 [打印本页]

作者: lazybird 时间: 2014-11-19 14:29
标题: 求打印指定文件的代码
够分发悬赏了。

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

作者: roych 时间: 2014-11-19 16:55
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 时间: 2014-11-19 19:47
多谢版主，按照你的提示测试了一下，执行后打开 Adobe Reader 的打印界面，按一下“打印”才能打印，这样就无法执行批量循环打印了。
我的需求是不需要打开 Adobe Reader ，直接把文件发送到打印机打印就可以了。就好像你在Windows界面下选定几个文件，然后右键选“打印”就可以全部打印出来一样的效果。

作者: 风中漫步 时间: 2014-11-20 12:58
代码操作Word试过吗?
现在的可能都支持PDF了吧

作者: lazybird 时间: 2014-11-23 15:12
回楼上的，可以贴下代码吗，谢谢

作者: 灰太郎 时间: 2021-2-28 20:00
11111

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)