Добрый день! Подскажите, пожалуйста, как активировать лист из события книги Workbook_BeforePrint, если событие печати книги вызывает другая процедура (Sub Start). При обычном методе активации через Sheets.Activate ничего не происходит.
Ниже прилагаю код события Workbook_BeforePrint:
| Код |
|---|
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call Test
End Sub
|
Код в обычном модуле:
| Код |
|---|
Sub Start() 'старт программы
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
Sub Test() 'вызывается из процедуры Workbook_BeforePrint
Sheets(3).Activate '!!! проблема здесь, лист 3 не хочет активаироваться (не только он, но и любой другой)
End Sub
|
