vb.net Document_PrintPage打印多行文本

比如：

十多年的海城网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。网络营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整海城建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“海城网站设计”,“海城网站推广”以来，每个客户项目都认真落实执行。

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)。

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

VB.NET多个文本框显示多行数据

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

怎样在VB.NET中设置多行文本框中显示的行数

1、添加TextBox控件

2、设置TextBox属性

3、编写代码

4、运行效果

vb.net文本框 多行

先把RichTextBox1 的MultiLine属性设置成 True

有很多方法：

第一种 RichTextBox1.Text = "123456789" vbCrLf "555684"

第二种 RichTextBox1.Text = "123456789" vbNewLine "555684"

你要的是第二种

网页名称：vb.net多行文本 vbnet writeline
文章起源：http://csdahua.cn/article/dosejco.html