vb.net如何將excel指定的sheet生成pdf 我里面有sheet1~5，只想將sheeet2、3轉成PDF，并且轉完后打開預覽？

你可以使用Spire.Xls來實現。Spire.Xls可以讓你方便地將excel中指定的sheet導出為pdf文件，并且支持在導出時指定sheet2和sheet3。同樣可以使用該框架來快速預覽生成的pdf文件。

站在用戶的角度思考問題，與客戶深入溝通，找到甌海網站設計與甌海網站推廣的解決方案，憑借多年的經驗，讓設計與互聯網技術結合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：網站設計制作、網站設計、企業(yè)官網、英文網站、手機端網站、網站推廣、申請域名、網站空間、企業(yè)郵箱。業(yè)務覆蓋甌海地區(qū)。

VB.NET 如何實現圖片轉PDF呢？

你說的不太滿意是什么意思，你莫非是希望圖片轉換成的pdf能被選中文字并復制粘貼？

誰知道 哪兒有VB.NET好點的教程呀？

到搜搜迅雷或者電騾去搜：

vb2005基礎教程.pdf

Visual Basic.NET技術內幕.rar

======

特別是第2個，必看

vb.net 導出PDF

利用DataWindow.net在 vb.net 下導出PDF格式文件

利用datawindow.net，導出PDF文件，實現前提：

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

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 批處理文件（實現靜默安裝）