vb.net打印实例的简单介绍

VS2005如何用VB.NET代码实现打印功能

有个PrintDocument控件,可以实现打印。。。

创新互联是一家专注于网站建设、成都做网站与策划设计,牡丹江网站建设哪家好?创新互联做网站,专注于网站建设十余年,网设计领域的专业建站公司;建站业务涵盖:牡丹江等地区。牡丹江做网站价格咨询:028-86922220

MSDN原话：

使用 PrintDocument 组件

涉及 PrintDocument 组件的两种主要情况是：

简单的打印作业，如打印单个文本文件。在这种情况下，应将 PrintDocument 组件添加到 Windows 窗体，然后在 PrintPage 事件处理程序中添加打印文件的编程逻辑。 该编程逻辑应以使用 Print 方法打印文档结束。

此方法向打印机发送一个 Graphics 对象，该对象包含在 PrintPageEventArgs 类的 Graphics 属性中。

有关如何使用 PrintDocument 组件打印文本文档的示例，请参见

如何：打印 Windows 窗体中的多页文本文件。

更为复杂的打印作业，如想要重新使用已编写的打印逻辑的情况。

在这种情况下，应从 PrintDocument 组件派生一个新组件，并重写

（请参见 Visual Basic 的 重写或 C# 的 重写） PrintPage 事件。

将 PrintDocument 组件添加到窗体后，它出现在 Windows 窗体设计器底部的栏中

哪位大哥给我一个VB.NET打印的例子

PrintDocument1.Print()

使用PrintDocument进行打印“Brush, 50, 80”50左边距离，80上面距离

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim mypen As Pen = New Pen(Color.Blue, 2)

e.Graphics.DrawString("取号单", New Font("Microsoft Sans Serif", 18, FontStyle.Bold), New Pen(Color.Black, 1).Brush, 30, 30)

e.Graphics.DrawString("XXXXXX", New Font("Microsoft Sans Serif", 24, FontStyle.Regular), New Pen(Color.Black, 1).Brush, 50, 80)

e.Graphics.DrawString("您的号码是：", New Font("Microsoft Sans Serif", 16, FontStyle.Regular), New Pen(Color.Black, 1).Brush, 30, 135)

e.Graphics.DrawString("打印时间:" Now(), New Font("Microsoft Sans Serif", 10, FontStyle.Regular), New Pen(Color.Black, 1).Brush, 80, 330)

End Sub

vb.net如何实现打印DataGridView1里的内容，求源码

使用 PrintDocument 控件的 Print() 方法可以打印指定对象中的内容，参考代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

PrintDocument1.Print()

End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim bm As New Bitmap(Me.DataGridView1.Width, Me.DataGridView1.Height)

DataGridView1.DrawToBitmap(bm, New Rectangle(0, 0, Me.DataGridView1.Width, Me.DataGridView1.Height))

e.Graphics.DrawImage(bm, 0, 0)

End Sub