Код 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
|
Комментариев нет:
Отправить комментарий