vb點(diǎn)虐 如何將excel指定的sheet生成pdf 我里面有sheet1~5，只想將sheeet2、3轉(zhuǎn)成PDF，并且轉(zhuǎn)完后打開(kāi)預(yù)覽？

你可以使用Spire.Xls來(lái)實(shí)現(xiàn)。Spire.Xls可以讓你方便地將excel中指定的sheet導(dǎo)出為pdf文件，并且支持在導(dǎo)出時(shí)指定sheet2和sheet3。同樣可以使用該框架來(lái)快速預(yù)覽生成的pdf文件。

成都創(chuàng)新互聯(lián)是一家企業(yè)級(jí)云計(jì)算解決方案提供商,超15年IDC數(shù)據(jù)中心運(yùn)營(yíng)經(jīng)驗(yàn)。主營(yíng)GPU顯卡服務(wù)器，站群服務(wù)器，四川綿陽(yáng)服務(wù)器托管，海外高防服務(wù)器，成都機(jī)柜租用，動(dòng)態(tài)撥號(hào)VPS，海外云手機(jī)，海外云服務(wù)器，海外服務(wù)器租用托管等。

vb點(diǎn)虐 導(dǎo)出PDF

利用DataWindow點(diǎn)虐 在 vb點(diǎn)虐 下導(dǎo)出PDF格式文件

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

1.安裝Acrobat Distiller虛擬打印機(jī),注意要用datawindow點(diǎn)虐 提供的打印驅(qū)動(dòng)，在c:\program files\sybase\datawindow點(diǎn)虐 2.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)靜默安裝）

如何在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)行效果