如何打印换页

[xayzmb]

'一面代码中, 为什么不能换页?
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.DrawString("这是第一页", New Font("宋体", 24), Brushes.Black, 5, 50)
e.HasMorePages = True
e.Graphics.DrawString("这是第二页", New Font("宋体", 24), Brushes.Black, 5, 150)
e.HasMorePages = False
e.Graphics.Dispose()

End Sub

[xayzmb]

没人回答
自已解决了

private i as Integer = 0

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDD.PrintPage


e.Graphics.DrawString("这是第一页", New Font("宋体", 24), Brushes.Black, 5, 50)
e.Graphics.DrawString("这是第二页", New Font("宋体", 24), Brushes.Black, 5, 150)
If i > 3 Then
e.HasMorePages = False
e.Graphics.Dispose()
Else
i = i + 1
e.HasMorePages = True
End If

End Sub

[51Crack]

不太会PrintDocument，进来学习

[xayzmb]

个人感觉不如6.0时的printer用着方便

[hzybc]

e.HasMorePages = True
exit sub '加这句

[bj9002]

很有帮助

[d9002]

学习，帮助很大。