Страницы

четверг, 26 марта 2015 г.

Печать несколько листов из VBA

Код Visual Basic
1
2
3
4
5
6
Sheets("Лист1").Range("A8:P42").PrintOut Copies:=1, Collate:=True
if "какой-то параметр из другой книги"
then
ActiveSheet.PageSetup.Orientation = xlLandscape
else
ActiveSheet.PageSetup.Orientation = xlPortrait

Комментариев нет:

Отправить комментарий