VB
【高分】求分页方法
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区求分页方法,因为代码较长,所以就只写重要部分.
如果用FOR循环出来的页面文字,我可以来正确分页,但这里是读取数据库的.
用While Rs.Read来循环出来的页面文字,我不会分页了.
private Pages as inter = 1
Private Sub PrintPage_DD(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)
**************省略读取数据库代码****************
Dim CH = 20 '行高
While Rs.Read
e.Graphics.DrawString("*******, BFont, Brushes.Black, 50, CH)
e.Graphics.DrawString("*******, BFont, Brushes.Black, 100, CH)
'************省略读取子数据库代码*************
CH=CH+20
While ARs.Read
e.Graphics.DrawString("*******, BFont, Brushes.Black, 50, CH)
e.Graphics.DrawString("*******, BFont, Brushes.Black, 100, CH)
'************************************************************** End While
CH=CH+50
'请问此入的分页代码应该怎么写 ,这是这样写的,但是不对
If CH> e.MarginBounds.Bottom Then
e.HasMorePages = True
CH = CT
Pages = Pages + 1
Rs.Read()
'End While
Exit Sub
Else
e.HasMorePages = False
End If
'请问此入的分页代码应该怎么写 ,这是这样写的,但是不对
End While
end sub
如果用FOR循环出来的页面文字,我可以来正确分页,但这里是读取数据库的.
用While Rs.Read来循环出来的页面文字,我不会分页了.
private Pages as inter = 1
Private Sub PrintPage_DD(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)
**************省略读取数据库代码****************
Dim CH = 20 '行高
While Rs.Read
e.Graphics.DrawString("*******, BFont, Brushes.Black, 50, CH)
e.Graphics.DrawString("*******, BFont, Brushes.Black, 100, CH)
'************省略读取子数据库代码*************
CH=CH+20
While ARs.Read
e.Graphics.DrawString("*******, BFont, Brushes.Black, 50, CH)
e.Graphics.DrawString("*******, BFont, Brushes.Black, 100, CH)
'************************************************************** End While
CH=CH+50
'请问此入的分页代码应该怎么写 ,这是这样写的,但是不对
If CH> e.MarginBounds.Bottom Then
e.HasMorePages = True
CH = CT
Pages = Pages + 1
Rs.Read()
'End While
Exit Sub
Else
e.HasMorePages = False
End If
'请问此入的分页代码应该怎么写 ,这是这样写的,但是不对
End While
end sub
...全文
