主题：求助打印换页的事情

复杂的报表打印，尽量用专业报表

http://www.foxtable.com/webhelp/scr/1166.htm

具体问题做个例子上来，看看是否有变通方式

1、没办法，只能这样变通。

Dim t As Table = e.Form.Controls("Table1").Table
Dim ps As Integer = Math.Ceiling(t.Rows.count / 15)
For i As Integer = 1 To ps
    Dim idxs As String = ""
    t.Filter = ""
    For j As Integer = (i-1)*15 To i*15-1
        If j >= t.Rows.count Then
            Exit For
        End If
        idxs &= "'" & t.Rows(j)("itemno") & "',"
    Next
    t.Filter = "itemno in (" & idxs.trim(",") & ")"
    Dim doc As PrintDoc = e.Form.GernatePrintDoc()
    doc.Preview()
Next
t.Filter = ""

2、AfterLoad事件

Dim dst As Table = Tables("作业单列表_Table1")
Dim dr As Row = dst.Current '获得选定行
vars("str1") = dr("scdcid") '保存原货品单号,确保变更后可以删除原记录

可以的，在右上角放一个label，然后修改代码

Dim t As Table = e.Form.Controls("Table1").Table
Dim ps As Integer = Math.Ceiling(t.Rows.count / 15)
For i As Integer = 1 To ps
    Dim idxs As String = ""
    t.Filter = ""
    For j As Integer = (i-1)*15 To i*15-1
        If j >= t.Rows.count Then
            Exit For
        End If
        idxs &= "'" & t.Rows(j)("itemno") & "',"
    Next
    t.Filter = "itemno in (" & idxs.trim(",") & ")"

    e.Form.Controls("Label1").Text = i & "/" & ps
    Dim doc As PrintDoc = e.Form.GernatePrintDoc()
    doc.Preview()
Next
t.Filter = ""