打印多份这样写
Dim doc As PrintDoc = e.Form.GernatePrintDoc()Dim ps As new System.Drawing.Printing.PrinterSettings
ps.Copies = 2 '设置份数
doc.Print(ps) '打印