急求vb.net pdf靜默打印問(wèn)題

你現(xiàn)在的默認(rèn)打印機(jī)是Adobe PDF,修改一下默認(rèn)打印機(jī)為你現(xiàn)在需要的打印機(jī)即可。

成都創(chuàng)新互聯(lián)公司長(zhǎng)期為成百上千客戶(hù)提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開(kāi)放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為岳池企業(yè)提供專(zhuān)業(yè)的成都做網(wǎng)站、成都網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè)，岳池網(wǎng)站改版等技術(shù)服務(wù)。擁有10年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開(kāi)發(fā)。

asp.NET 基于vb 中能否在網(wǎng)頁(yè)中顯示pdf 文檔?

可以，一般都轉(zhuǎn)化為swf格式進(jìn)行閱讀，這樣的話(huà)做出的比較通用，使用FlexPaper控件就可以做到，效果參見(jiàn)百度文檔。

vb.net 導(dǎo)出PDF

利用DataWindow.net在 vb.net 下導(dǎo)出PDF格式文件

利用datawindow.net，導(dǎo)出PDF文件，實(shí)現(xiàn)前提：

1.安裝Acrobat Distiller虛擬打印機(jī),注意要用datawindow.net提供的打印驅(qū)動(dòng)，在c:\program files\sybase\datawindow.net2.0\driver中,在文章最后，我會(huì)提供一個(gè)靜態(tài)安裝虛擬打印機(jī)的批處理文件，方便安裝。

2.安裝Ghostscript 7.05 ，在網(wǎng)上找,免費(fèi)的。

3.導(dǎo)出PDF文件前，一要指定虛擬打印機(jī)名，其次導(dǎo)出格式為PDF（Export.PDF.Method=Distill!）,另外還要指定 PDF.Distill.CustomPostScript=Yes。

具體代碼如下：

''' summary

''' 導(dǎo)出文件

''' /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("導(dǎo)出成功!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Catch ex As Exception

MessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

4 批處理文件（實(shí)現(xiàn)靜默安裝）

您好~我想問(wèn)一下怎么在vb中添加一個(gè)pdf控件？

網(wǎng)上下載一個(gè)PDF控件安裝或注冊(cè)，在工程——部件中引用該控件就可以了

如何在vb中打開(kāi)一個(gè)PDF文件？

利用AcroPDF打開(kāi)并顯示PDF文件。

注意：必須事先安裝免費(fèi)的 Adobe Reader 11.0

（1）創(chuàng)建一個(gè)VB6工程。在工具欄中點(diǎn)擊鼠標(biāo)右鍵，調(diào)出右鍵菜單--部件--Adobe Acrobat 7.0 Control Type Library 1.0--確定

（2）在Form1中布置一個(gè)AcroPDF控件

（3）窗體代碼

Option?Explicit

Private?Sub?Form_Load()

Me.Caption?=?"我的PDF閱讀器"

'?加載PDF文檔并顯示

AcroPDF1.LoadFile?("D:\電子書(shū)籍\ProgrammingWpf.pdf")

End?Sub

Private?Sub?Form_Resize()

'調(diào)整?AcroPDF1大小，占滿(mǎn)整個(gè)窗口

AcroPDF1.Move?30,?30,?ScaleWidth?-?60,?ScaleHeight?-?60

End?Sub

（4）運(yùn)行效果

網(wǎng)頁(yè)標(biāo)題：vb.netpdf控件,vb的文件類(lèi)控件
瀏覽路徑：http://chinadenli.net/article12/hecedc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、小程序開(kāi)發(fā)、網(wǎng)站維護(hù)、移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站收錄、網(wǎng)站營(yíng)銷(xiāo)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀(guān)點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)