关于PrintDocument的使用?
对于PrintDocument这个对象有点懂不起了,我认为她应该是一个容器,包含页的集合,每页中包含打印内容(字符、线条等)的集合。
而在PrintDocument这个对象里要用PrintPage事件才能加内容呀?加一个页怎么用HasMorePages = True实现呢?至今还不知道怎么加页。
请高手指点。
[解决办法]
Dim FontNr As New Font( "宋体 ", 10)
e.Graphics.DrawString( "ABC ", FontNr, Brushes.Black, 50, 80)
'打印文字
[解决办法]
Dim XianX As New Pen(Color.Black, 1) '细线
e.Graphics.DrawLine(XianX, 100, 120, 200, 120)
'打印线条
[解决办法]
先计算你一页的大小:
dim a as int16 '页面大小
然后画图
第一页
e.Graphics.DrawString(Me.lblWFBH.Text, Me.lblWFBH.Font, Brushes.Black, Me.lblWFBH.Left, Me.lblWFBH.Top)
第二页
e.Graphics.DrawString(Me.lblWFBH.Text, Me.lblWFBH.Font, Brushes.Black, Me.lblWFBH.Left, Me.lblWFBH.Top+a)
然后你再设置允许分页