BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientation = CommonDialog1.Orientation
For m = 1 To NumCopies
>>>NumCopies这个值是打印份数,不是页数,如果要打不同页,好像应该写成:
For m=BeginPage to EndPage
'在此放置代码,将数据发送到打印机
Printer.Print outstr
Printer.Print tmpstr >>> 以上两行是测试用的吧
Printer.EndDoc >>> 你是想要换页就用 printer.NewPage 吧
Next m
Exit Sub