打印PDF的第一页

yannierr · 发表于 2021-8-11 15:09

老师，下面那件代码能打印PDF，但是我想打印PDF的第一页，请问如何改代码？感谢指导！

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 打印PDF()
         Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " & " C:\Users\Administrator\Desktop\DY-TCHX00001-质保书PDF", vbMaximizedFocus

      ShellExecute Application.hwnd, "Print", "C:\Users\Administrator\Desktop\DY-TCHX00001-质保书PDF", vbNullString, vbNullString, 0
      ShellExecute Application.hwnd, "Print", "C:\Users\Administrator\Desktop\DY-TCHX00001-质保书PDF\2.pdf", "", "", 1

End Sub

yannierr · 发表于 2021-8-11 15:30

求大师指导，谢谢！

yannierr · 发表于 2021-8-11 15:33

网站我都查过了，没有关于PDF只打印第一页的贴子，这还得费大神做回开山祖师，好让我们学习学习啦

yannierr · 发表于 2021-8-12 08:45

这个是不是VBA搞不定的，怎么没有一个老师给我帮助的呢，我再顶顶

yannierr · 发表于 2021-8-12 19:33

即然VBA不行，我用的是福昕的PDF，我通过上面程序将50多个PDF都打开了，那么如何才能全选这些PDF呢，因为如果手工选择第一页，我必须要全选它们，否则没法设置只打第一页，这个有老师可否指点呢，谢谢谢！

Nonenever · 发表于 2021-8-12 22:47

本帖最后由 Nonenever 于 2021-8-12 23:57 编辑

https://opensource.adobe.com/dc-acrobat-sdk-docs/acrobatsdk/html2015/index.html#t=Acro12_MasterBook%2FIAC_API_OLE_Objects%2FPrintPagesSilent.htm&rhsearch=PrintPagesSilent&rhhlterm=PrintPagesSilent&rhsyns=%20
需要安装 adobe acrobat pro，并在vba 中加入引用

Sub pdf打印()
Dim PDFdoc As AcroAVDoc
Dim PDFPath As String
Dim PDdoc
PDFPath = "C:\Users\Administrator\Desktop\新建文件夹 (5)\test.pdf"
Set PDFdoc = CreateObject("AcroExch.AVDoc")
If PDFdoc.Open(PDFPath, "") = True Then
Set PDdoc = PDFdoc.GetPDDoc()
Call PDFdoc.PrintPagesSilent(0, 0, 0, 0, 0)
'打印开始页（第一页是 0），开始结束页，，，如果为正数，则页面会缩小（如有必要）以适合打印页面的可成像区域
' https://opensource.adobe.com/dc-acrobat-sdk-docs/acrobatsdk/html2015/index.html#t=Acro12_MasterBook%2FIAC_API_OLE_Objects%2FPrintPagesSilent.htm&rhsearch=PrintPagesSilent&rhhlterm=PrintPagesSilent&rhsyns=%20
PDdoc.Close
End If
End Sub

复制代码

yannierr · 发表于 2021-8-13 09:08

感谢老师指导，我先下载，然后再加上这个代码试试，谢谢啦！

chinalqw · 发表于 2024-2-19 14:48

Nonenever 发表于 2021-8-12 22:47
https://opensource.adobe.com/dc-acrobat-sdk-docs/acrobatsdk/html2015/index.html#t=Acro12_MasterBook% ...

学习了

opiona · 发表于 2024-2-20 09:35

本帖最后由 opiona 于 2024-2-21 13:47 编辑

https://club.excelhome.net/thread-1654951-1-1.html

纯VBA代码打印PDF文件指定页见97楼
QQ截图20240221134630.png

使用插件:

		自动登录	找回密码
密码			免费注册