Application.Dialogs(xlDialogPrint).Show '调用打印窗口ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True '调用默认打印机
