Здравствуйте, уважаемые знатоки!
Есть код для печати листов в книге. В нем прописаны все листы которые в ней могут быть. Но Встречаются книги, где некоторых из этих листов нет и тогда макрос выдает ошибку и останавливается. Самое странное, что некоторые он пропускает свободно и продолжает печать, а некоторые нет. Подскажите, пожалуйста, в чем может быть дело или приведите рабочий пример своего кода
Вот мой код:
Код |
---|
Sub ПЕЧАТЬ()
On Error GoTo errorHandler3
ActiveWorkbook.Sheets(Array("о1", "о2")).PrintOut Copies:=1
errorHandler3:
On Error GoTo errorHandler4
ActiveWorkbook.Sheets(Array("м1", "м2")).PrintOut Copies:=1
errorHandler4:
On Error GoTo errorHandler5
ActiveWorkbook.Sheets(Array("ш1", "ш2")).PrintOut Copies:=1
errorHandler5:
On Error GoTo errorHandler6
ActiveWorkbook.Sheets(Array("вл1", "вл2")).PrintOut Copies:=1
errorHandler6:
On Error GoTo errorHandler7
ActiveWorkbook.Sheets(Array("во1", "во2")).PrintOut Copies:=1
errorHandler7:
On Error GoTo errorHandler8
ActiveWorkbook.Sheets(Array("и1", "и2")).PrintOut Copies:=1
errorHandler8:
End Sub |