to yuxi007()
高人啊能否讲的具体点,“在下一页中接着此一变量往下打印就行”怎么写下一页,由于手头没有什么参考资料。大哥能否给点具体的例子,或代码。小弟可真是急啊
--------------------------------------------------------------------------------
Private Sub PrintDocument1_PrintPage( _
ByVal sender As System.Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
Handles PrintDocument1.PrintPage
Static pg As Integer = 1 '
Dim blackPen As New Pen(Color.Black, 3)
Select Case pg
'第一页
Case 1
e.Graphics.DrawLine(blackPen, 100, 100, 500, 500)
e.HasMorePages = True
'第二页
Case 2
e.Graphics.DrawLine(blackPen, 100, 500, 500, 100)
e.HasMorePages = False
End Select
pg = pg + 1
End Sub
--------------------------------------------------------------------------------
这是我手头书上的例子页数也固定,而现在不知道数据的数量怎么打