pdf的插件,网络上有很多。
一开始,我试了试adobe acrobat的插件,9.0的版本很不稳定,11.0的版本很稳定。但是,打印功能不是很好。后来,下载了foxitpdf sdk,小巧又好用。相关代码粘贴如下。
首先,加载控件,做好引用。
frpdf.OpenFile("c:\test.pdf", "password")
'隐藏工具栏
frpdf.ShowToolBar(False)
'标题栏
frpdf.ShowTitleBar(False)
'隐藏状态栏
frpdf.ShowStatusBar(False)
'显示模式 0 为一页, 1为同时显示两栏
frpdf.SetLayoutShowMode(0, 0)
‘隐藏导航栏
frpdf.ShowNavigationPanels(False)
’定义一个打印机机
Dim pdfPrint As FoxitReaderSDKProLib.PDFPrinter
pdfPrint = frpdf.Printer
'3的模式为打印第x页到第X页
pdfPrint.PrinterRangeMode = 3
'当前页到当前页,就是打印当前页
pdfPrint.printerRangeFrom = frpdf.CurPage
pdfPrint.printerRangeTo = frpdf.CurPage
’安静的打印,不出现对话框
pdfPrint.PrintQuiet()