Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
10楼主方法应是指一个报表(换页符?),这样行不通啊。
只能按3楼的办法定义多个报表:
试了下,都算达到了想要的效果。
(但存在1个问题 :连续打印时,子表数据量1大,因为有计算关联子表的行数代码,猜想着效率应会极低。现在正用着的系统的速度真叫人哭不出来(引进的),我对于速度这方面,都会极度担心,真的烦够了。)
dim count1 as integer = Tables("...表").Rows.Count
if count1 > n then
Dim doc As New Printdoc
.........
doc.Preview
Dim doc1 As New Printdoc
.........
doc1.Preview
else
Dim doc3 As New Printdoc
.........
doc3.Preview
end if