Макрос печати листа, имя которого указано в ячейке

[lovko]

Здравствуйте, подскажите, пожалуйста, почему

Код Выделить Развернуть

Worksheets(Workbooks("Требование.xlsx").Sheets("Печать").[D11]).PrintOut From:=1, To:=1, Copies:=1
не печатается.

В Workbooks("Требование.xlsx").Sheets("Печать").[D11] указано название листа, который нужно распечатать.
Спасибо!

[vikttur]

...Cells(11,4).Value).PrintOut From:=1, To:=1, Copies:=1

Зачем такой длинный путь? ячейка в другой книге?

[lovko]

Ячейка в этой же книге, что и листы для печати. А макрос - в общей книге макросов.

[lovko]

Вот, что получилось в итоге (название листа с ячейкой все-таки не "Сервис", а "Формулы6.0")

Код Выделить Развернуть

Workbooks("Требование.xlsx").Worksheets(Workbooks("Требование.xlsx").Sheets("Формулы6.0").Cells(11, 5).Value).PrintOut From:=1, To:=1, Copies:=1
Но теперь возникает странная ситуация:
начинается печать, но она тут же прерывается, так как на экран выводится окно "Сохранить как".
Почему так происходит?

[lovko]

Разобрался. Вот что получилось:

Код Выделить Развернуть

[/Workbooks("Требование.xlsx").Activate
Worksheets(Cells(11, 5).Value).PrintOut From:=1, To:=1, Copies:=1
А окно сохранения документа возникало из-за того, что к ноутбуку не подключен принтер.

[lovko]

Модераторов прошу меня извинить: никак не научусь правильно оформлять код в отдельном окне.