主题：再求打印问题

for i as integer =1 to 5 step 1
    dim filter="[_Identify] <= 4*" & i & " and [_Identify]>=4*(" & i & "-1)"  
'这里不能用_identify 因为每次充填后它都会发生变化！
   Tables("附表").Filter = Filter
   Dim doc As PrintDoc = e.Form.GernatePrintDoc()
   doc.Print()
   DataTables("附表").deletefor(filter)    ‘这两行代码似呼有些多余
   DataTables("附表").save()
next

    ..............

在更新前，楼主可以这样试一试（打印按钮）： 还用_Identify来做条件
if Tables("附表").count mod 4 = 0
    for i as integer = 0 to format(Tables("附表").count / 4,"0.0").split(".")(0)-1
        dim m as integer = Tables("附表").rows(i*4)("_identify")
        dim filter as string ="[_Identify] < " & m & " +4 and [_Identify] >= " & m & " "
        Tables("附表").Filter = Filter
        Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        doc.Print()
        Tables("附表").ApplyFilter = False
    next
else
    for i as integer = 0 to format(Tables("附表").count / 4,"0.0").split(".")(0)
        dim m as integer = Tables("附表").rows(i*4)("_identify")
        dim filter as string ="[_Identify] < " & m & " +4 and [_Identify] >= " & m & " "
        Tables("附表").Filter = Filter
        Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        doc.Print()
        Tables("附表").ApplyFilter = False
    next
end if