1、添加纸张
http://www.foxtable.com/webhelp/scr/2904.htm
2、试试指定对应纸张
http://www.foxtable.com/webhelp/scr/1189.htm
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54472&skin=0
3、打印多张,这样处理
Dim ps As new System.Drawing.Printing.PrinterSettings
ps.Copies = 2 '设置份数
doc.Print(ps) '打印