怎么让vb.net创建pdf文档

[zb235]

比如我有一段文本和几张图片，我怎么才能通过vb.net编程把它们编辑到并生成一个pdf文档里？

[andyday83]

编辑利用文本编辑器组件可以对文本进行编辑，甚至引用OFFICE组件都可以吧
打印方式选择PDF Complete 可以输出为PDF文件

[lhblxm]

打印时调用PDF打印机就可以了

[lhblxm]

在PICTUREBOX中绘制文本及图片，再打印

[Densen2014]

做成rdlc报表。然后用这段代码输出到你要的位置。

1.ReportViewer1为你的报表控件

2.这句是输出pdf格式的命令:
ReportViewer1.LocalReport.Render("PDF", Nothing, _
mimeType, encoding, extension, streamids, warnings)

3.这里是打开对话框，默认输出到桌面，当然你也可以自己直接定义路径和文件名。
Dim fs As New FileStream(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Order_" & OrderIDTextBox.Text & ".pdf", FileMode.Create)


************** 代码 ****************
Dim warnings As Warning() = Nothing
Dim streamids As String() = Nothing
Dim mimeType As String = Nothing
Dim encoding As String = Nothing
Dim extension As String = Nothing
Dim deviceInfo As String
Dim bytes As Byte()

deviceInfo = "< deviceInfo ><SimplePageHeaders>True</SimplePageHeaders></DeviceInfo>"

bytes = ReportViewer1.LocalReport.Render("PDF", Nothing, _
mimeType, encoding, extension, streamids, warnings)

Dim fs As New FileStream(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Order_" & OrderIDTextBox.Text & ".pdf", FileMode.Create)
fs.Write(bytes, 0, bytes.Length)
fs.Close()

If MsgBox("报表输出到 " & My.Computer.FileSystem.SpecialDirectories.Desktop & "\Order_" & OrderIDTextBox.Text & ".pdf" & Chr(13) & Chr(10) & "关闭窗口吗?", MsgBoxStyle.YesNo, "提示") = MsgBoxResult.Yes Then
Me.Close()
End If

[huangweizhao]

iTextSharp

[huangweizhao]

iTextSharp这个控件很方便。