打印PDF的第一页

yannierr

老师，下面那件代码能打印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

求大师指导，谢谢！

yannierr

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

yannierr

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

yannierr

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

Nonenever

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 中加入 引用

1. Sub pdf打印()
   
2.     Dim PDFdoc As AcroAVDoc
   
3.     Dim PDFPath As String
   
4.     Dim PDdoc
   
5.     PDFPath = "C:\Users\Administrator\Desktop\新建文件夹 (5)\test.pdf"
   
6.     Set PDFdoc = CreateObject("AcroExch.AVDoc")
   
7.     If PDFdoc.Open(PDFPath, "") = True Then
   
8.         Set PDdoc = PDFdoc.GetPDDoc()
   
9.         Call PDFdoc.PrintPagesSilent(0, 0, 0, 0, 0)
   
10.         '打印开始页（第一页是 0），开始结束页，，，如果为正数，则页面会缩小（如有必要）以适合打印页面的可成像区域
    
11. '        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
    
12.         PDdoc.Close
    
13.     End If
    
14. End Sub

复制代码

yannierr

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

chinalqw

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

学习了

opiona

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


纯VBA代码  打印PDF文件指定页  见97楼


使用插件: