vb.net Document_PrintPage打印多行文本
需要打印的格式是:str0A1A2A3横线B1B2B3C1C2C3横线我已经把他们分成三个部分str0,A1-A3为字符串str1,B1-C3为字符串str2如何打印这s...
需要打印的格式是:
str0
A1 A2 A3
横线
B1 B2 B3
C1 C2 C3
横线
我已经把他们分成三个部分str0,A1-A3为字符串str1,B1-C3为字符串str2
如何打印这str0,横线,str1,横线,str2,格式像上面这样?
Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
e.Graphics.DrawString(str, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)
这里具体要怎么写呢?
End Sub
这是richtextbox1中的,本来是
e.Graphics.DrawString(richtextbox1.text, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)
但是这样就不能分别设置格式了,比如标题字体要大,粗体。 还要画横线 展开
str0
A1 A2 A3
横线
B1 B2 B3
C1 C2 C3
横线
我已经把他们分成三个部分str0,A1-A3为字符串str1,B1-C3为字符串str2
如何打印这str0,横线,str1,横线,str2,格式像上面这样?
Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
e.Graphics.DrawString(str, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)
这里具体要怎么写呢?
End Sub
这是richtextbox1中的,本来是
e.Graphics.DrawString(richtextbox1.text, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)
但是这样就不能分别设置格式了,比如标题字体要大,粗体。 还要画横线 展开
1个回答
展开全部
比如:
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)。
具体蚂此坐标数值自己用尺量出,再换算。
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)。
具体蚂此坐标数值自己用尺量出,再换算。
追问
非常感谢,我一直以为e.graphics只能用一次,原来可以根据改变坐标重复打印,见笑了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |