你現在的默認打印機是Adobe PDF,修改一下默認打印機為你現在需要的打印機即可。
成都創新互聯公司長期為成百上千客戶提供的網站建設服務,團隊從業經驗10年,關注不同地域、不同群體,并針對不同對象提供差異化的產品和服務;打造開放共贏平臺,與合作伙伴共同營造健康的互聯網生態環境。為岳池企業提供專業的成都做網站、成都網站制作、成都外貿網站建設,岳池網站改版等技術服務。擁有10年豐富建站經驗和眾多成功案例,為您定制開發。
可以,一般都轉化為swf格式進行閱讀,這樣的話做出的比較通用,使用FlexPaper控件就可以做到,效果參見百度文檔。
利用DataWindow.net在 vb.net 下導出PDF格式文件
利用datawindow.net,導出PDF文件,實現前提:
1.安裝Acrobat Distiller虛擬打印機,注意要用datawindow.net提供的打印驅動,在c:\program files\sybase\datawindow.net2.0\driver中,在文章最后,我會提供一個靜態安裝虛擬打印機的批處理文件,方便安裝。
2.安裝Ghostscript 7.05 ,在網上找,免費的。
3.導出PDF文件前,一要指定虛擬打印機名,其次導出格式為PDF(Export.PDF.Method=Distill!),另外還要指定 PDF.Distill.CustomPostScript=Yes。
具體代碼如下:
''' summary
''' 導出文件
''' /summary
''' param name="sender"/param
''' param name="e"/param
''' remarks/remarks
Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click
Try
Dim strFilename, strPrinter As String
Dim saveDg As New SaveFileDialog
strPrinter = Me.dwPrint.Describe("DataWindow.Print.PrinterName")
saveDg.FileName = Me.dwPrint.Tag.ToString
saveDg.Filter = "Pdf文件|*.pdf|Excel文件|*.xls|所有文件|*.*"
If saveDg.ShowDialog = Windows.Forms.DialogResult.OK Then
strFilename = saveDg.FileName
If strFilename.IndexOf(".pdf") 0 Then
Me.dwPrint.Modify("DataWindow.Print.PrinterName='Acrobat Distiller'")
Me.dwPrint.Modify("DataWindow.Export.PDF.Method=Distill!")
Me.dwPrint.Modify("DataWindow.Export.PDF.Distill.CustomPostScript=Yes")
Me.dwPrint.SaveAs(strFilename, Sybase.DataWindow.FileSaveAsType.Pdf, True)
ElseIf strFilename.IndexOf(".xls") 0 Then
Me.dwPrint.SaveAs(strFilename, Sybase.DataWindow.FileSaveAsType.Excel, True)
End If
Me.dwPrint.Modify("DataWindow.Print.PrinterName='" + strPrinter + "'")
MessageBox.Show("導出成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
4 批處理文件(實現靜默安裝)
網上下載一個PDF控件安裝或注冊,在工程——部件中引用該控件就可以了
利用AcroPDF打開并顯示PDF文件。
注意:必須事先安裝免費的 Adobe Reader 11.0
(1)創建一個VB6工程。在工具欄中點擊鼠標右鍵,調出右鍵菜單--部件--Adobe Acrobat 7.0 Control Type Library 1.0--確定
(2)在Form1中布置一個AcroPDF控件
(3)窗體代碼
Option?Explicit
Private?Sub?Form_Load()
Me.Caption?=?"我的PDF閱讀器"
'?加載PDF文檔并顯示
AcroPDF1.LoadFile?("D:\電子書籍\ProgrammingWpf.pdf")
End?Sub
Private?Sub?Form_Resize()
'調整?AcroPDF1大小,占滿整個窗口
AcroPDF1.Move?30,?30,?ScaleWidth?-?60,?ScaleHeight?-?60
End?Sub
(4)運行效果
網頁標題:vb.netpdf控件,vb的文件類控件
瀏覽路徑:http://vcdvsql.cn/article12/hecedc.html
成都網站建設公司_創新互聯,為您提供品牌網站制作、小程序開發、網站維護、移動網站建設、網站收錄、網站營銷
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯