使用标记和事件,从这节开始看:
http://www.foxtable.com/help/topics/1396.htm
基本思路:
1、定义三个Var变量,分别表示已经打印行数,总页数和当前页。
2、自己做一个打印按钮,根据要打印的数据的行数,可以算出总页数,例如你的模版是打印选定行,每页10行,那么打印按钮的代码:
Var("总页数") = math.Ceiling( (Tables("xxx").BottomPosition - Tables("xxx").TopPosition +1) / 10)
Var("已打印行数") = 0
Var("当前页") = 1
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build() '生成细节区
3、设置BuildDetail事件代码:
Select Case e.Book.TempLate
Case "模版名称"
Var("已打印行数") = var("已打印行数") + 1
if Var("已打印行数") mod 10 = 0 then ‘每打印10行,当前页加1
Var("当前页") = Var("当前页") + 1
end if
End Select
4、在模版的对应位置引用var变量:
http://www.foxtable.com/help/topics/1391.htm
细节自己调整,上面只是思路。
[此贴子已经被作者于2013-7-31 14:58:41编辑过]