Код |
---|
Sub Printer() ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False If MsgBox("Сохранить?", vbYesNo) = vbNo Then Exit Sub If MsgBox("Сохранить?", vbYesNo) = vbYes Then Worksheets("Импорт").Activate Call SaveTXT_UTF8 End Sub |
Здравствуйте не получилось сделать кнопку подтверждения или отмены для выполнения макроса или отменить "сохранить" после печати
спросить выполнять макрос или отменить