vb.net打印多行文本的简单介绍

vb.net Document_PrintPage打印多行文本

比如：

创新互联公司是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发，网站制作，网站设计，网站模板，微信公众号开发，软件开发，微信小程序，10多年建站对成都玻璃钢坐凳等多个行业，拥有丰富建站经验。

Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)

e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)

e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)

e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)

也就是分次用不同坐标和不同的字体来打印各变量。画线用：

e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2)。

具体坐标数值自己用尺量出，再换算。

Dim mycon As New SqlConnection(connstrs)

Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"

Dim cmd As New SqlCommand(sqlStr, mycon)

Dim reader = cmd.ExecuteReader()

Dim i As Integer = 1

While reader.Read()

Dim txt As New TextBox()

txt.Name = "txt" + i

txt.Size = New Size(100, 20) '文本框大小

txt.Location = New Point(50, i * 20 + 20)'left:50 top:随便写的，自己看着调

txt.Text = reader.GetValue(0).ToString()

Me.Controls.Add(txt) 'Me 可以改为你要添加上去的对象

End While

'未经过运行，自己调试看看能否OK

想要让picturebox输出多行文字，可以反复使用Print方法在PictureBox控件中输出多行文字，在插入的文字中输入回车符（即Chr(13)）即可，每一个Print语句右面是一行的内容。

此外，在需要换行的地方加上“ vbCrlf ”代码也是可以实现让picturebox输出多行文字的。

扩展资料

PictureBox 控件和 Data 控件是唯一可以放置在 MDI窗体内部区域的标准 Visual Basic 控件。可以使用该控件在内部区域的顶部或底部对控件分组，以创建工具栏或状态栏。

注意 Unisys Corporation 有一项专利，该专利声称涉及到 GIF-LZW压缩技术的某些方面，在该技术中使用了 PictureBox 和 Image 控件。Microsoft Corporation 于1996年9月获得了对 Unisys LZW 专利的使用许可。

然而，Microsoft 的许可证并不延伸到那些软件开发商或第三方，他们使用任何 Microsoft 工具包、语言开发或操作系统产品来在他们自己的产品中提供 GIF 读/写和/或任何其他 LZW 能力（例如，通过 DLL 和 API）。

参考资料来源：

百度百科-PictureBox控件

百度百科-Visual Basic

当前题目：vb.net打印多行文本的简单介绍
链接分享：http://scyanting.com/article/dsegehe.html