如何按这样的要求输出报表？

[CheerYang]

报表问题：如何循环输出数据？（打印纸为A4纸）
我的报表是表格，首页有标题
当输出打印机后，满一页A4纸，在末端输出第几页共几页，下一页首同样要输出标题。

还有预览也要这样如何做？

[CheerYang]

顶呀。好心人帮帮忙啦。

[ziyouren3]

想知道！看看有人解决吗？

[CheerYang]

报表问题：如何循环输出数据？（打印纸为A4纸）
我的报表是表格，首页有标题
当输出打印机后，满一页A4纸，在末端输出第几页共几页，下一页首同样要输出标题。

还有预览也要这样如何做？

[CheerYang]

报表问题：如何循环输出数据？（打印纸为A4纸）
我的报表是表格，首页有标题
当输出打印机后，满一页A4纸，在末端输出第几页共几页，下一页首同样要输出标题。

还有预览也要这样如何做？

[showfray]

While Not Rs.eof
if Rs.RecordCount>?? Then
'在此输出第几页，共几页
'下一页的输出并输出标题
end if

Rs.MoveNext
Wend

[CheerYang]

顶。能否详细点呀？

[CheerYang]

再顶。解决者另开贴给300分！

关键是1、如何判断满一页加分页标识并在下一页前加标题
2、如何判断满足内循环的最后一页输出的内容肯定是不够一页或刚好一页，如果不够一页那么剩余的空白全（A4纸）全留空白，然后再进行下一个外循环。

[522jack]

假如你每一条记录都差不多大小的话。
可以：
i=0
do while not rs.eof
i=i+1
response.write "内容" //每页放20条记录
if i mod 20=0 then
response.end
end if
rs.movenext
if rs.eof then
ii=20-(i mod 20)
response.Write "空"
end if
loop

多少页就用rs.RecordCount 来判断，
下一页，就减去20条记录，依此类推。

[CheerYang]

谢谢522jack!
思路不错。。

[showfray]

你的报表全列出来，即把标题、数据、页端循环显示在一个页面内，只要放A4纸时满足条件就会按要求打印。

但唯一不好的是这样的报表预览不好看，没有C/S的报表可以分页查看，但打印是全部打印。如果你的B/S模式的报表做成分页查看预览的话，打印就只能打印当前页。。

学习中。。。

[ryuginka]

试试到导出到word试试