主题：求教窗口打印事件代码

方法一：

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For i As Integer = 1 To val(Tables("表A").Current("第二列"))
    doc.Preview()
Next

方法二：

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ps As new System.Drawing.Printing.PrinterSettings
ps.Copies = 2  

doc.Print(ps)    

设置纸张大小参考 http://www.foxtable.com/help/topics/1602.htm