задать печать одной кнопкой, но сразу нужное кол-во копий

[Kisunya2104]

Есть файл с несколькими листами. Необходимо печатать некоторые листы 2 копии, некоторые 4 копии, а некоторые по 1 копии. Можно ли задать печать одной кнопкой, но сразу нужное кол-во копий?
Подскажите, пожалуйста.

[pashulka]

Скопируйте нижеопубликованный макрос в модуль ThisWorkbook(ЭтаКнига), изменив имена листа на необходимые, и сохраните изменения. Это позволит Вам использовать стандартные команды и обойтись без создания дополнительных кнопок. Впрочем, если наличие собственной кнопки необходимо, то Вы можете оставить из всего события только управляющую инструкцию Select Case и метод PrintOut (печать)

Option Compare Text

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    Application.EnableEvents = False
    Select Case Me.ActiveSheet.Name
        Case "Лист1", "Лист5", "Нетто и брутто": iCopies = 2
        Case "Лист2", "Лист3", "Лист4", "Лист7": iCopies = 4
        Case Else: iCopies = 1
    End Select
    Me.ActiveSheet.PrintOut Copies:=iCopies
    Application.EnableEvents = True
End Sub