Sub 有印章打印()
Worksheets("sheet1").PrintOut From:=1, To:=1, Copies:=3, Collate _
:=True
Worksheets("sheet1").PrintOut From:=3, To:=3, Copies:=3, Collate _
:=True
Worksheets("sheet1").PrintOut From:=12, To:=12, Copies:=3, Collate _
:=True
Worksheets("sheet1").PrintOut From:=28, To:=28, Copies:=1, Collate _
:=True
End Sub
在窗体增加一个按钮连接到宏，OK，无印章打印可参照以上处理！
