vb.net教程pdf VB程序教程

谁知道 哪儿有VB.NET好点的教程呀？

到搜搜迅雷或者电骡去搜：

成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都做网站、成都网站建设、蚌埠网络推广、微信小程序定制开发、蚌埠网络营销、蚌埠企业策划、蚌埠品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供蚌埠建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

vb2005基础教程.pdf

Visual Basic.NET技术内幕.rar

======

特别是第2个，必看

vb.net如何将excel指定的sheet生成pdf 我里面有sheet1~5，只想将sheeet2、3转成PDF，并且转完后打开预览？

你可以使用Spire.Xls来实现。Spire.Xls可以让你方便地将excel中指定的sheet导出为pdf文件，并且支持在导出时指定sheet2和sheet3。同样可以使用该框架来快速预览生成的pdf文件。

求《VB.NET入门经典》电子书

VB.NET 从入门到精通

《VB_NET 编程技巧与实例集粹》PDF

《Basic.Net 高级编程》

vb.net 导出PDF

利用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 批处理文件（实现静默安装）