您可以使用Acrobat组件来打印PDF文件。请先确保您的电脑上已安装了Adobe Acrobat,然后按照以下步骤操作:
Dim AcroApp As Acrobat.AcroApp Dim AcroAVDoc As Acrobat.AcroAVDoc
Set AcroApp = CreateObject("AcroExch.App") Set AcroAVDoc = CreateObject("Acrobat.AVDoc")
If AcroAVDoc.Open("C:\example.pdf", "") Then AcroApp.Show AcroAVDoc.PrintOut AcroAVDoc.Close (True) End If
请注意,在上面的代码中,"C:\example.pdf"是PDF文件的路径,请替换成您要打印的PDF文件的路径。