插入按钮,将如下宏代码输入:
Sub 按钮1_Click()
Sheets("c").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
插入按钮,将如下宏代码输入:
Sub 按钮1_Click()
Sheets("c").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub