установки печати диапазона

[maxvip]

Здравствуйте! есть код который определяет количество заполненных строк и отправляет на печать диапазон с данными. как в этот код поместить установки печати? надо чтоб печать была на лист с альбомной ориентацией.


Private Sub CommandButton2_Click()
Dim ctr As Long
ctr = Worksheets("формы").Cells(Rows.Coun t, 1).End(xlUp).Row
Worksheets("формы").Range("a7:h" & ctr).PrintOut Copies:=1, Collate:=True

End Sub

[maxvip]

вопрос снят! сделал вот так -

Private Sub CommandButton2_Click()
Dim ctr As Long
ctr = Worksheets("формы").Cells(Rows.Coun t, 1).End(xlUp).Row
Worksheets("формы").PageSetup.Orien tation = xlLandscape
Worksheets("формы").Range("a7:h" & ctr).PrintOut Copies:=1, Collate:=True

End Sub

[Skif-F]

Просто запишите свои действия макрорекордером и проанализируйте полученный код

[maxvip]

Сообщение от Skif-F

Просто запишите свои действия макрорекордером и проанализируйте полученный код

пробовал, получается много строк. в принципе понятно, но если пытаться написать нормальный, не раздутый код, то я не всегда знаю синтаксис и прочие ошибки могу допустить.

[Skif-F]

Сообщение от maxvip

пробовал, получается много строк. в принципе понятно, но если пытаться написать нормальный, не раздутый код, то я не всегда знаю синтаксис и прочие ошибки могу допустить.

Мы все так учимся