|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.06.2014, 14:44 | #1 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
установки печати диапазона
Здравствуйте! есть код который определяет количество заполненных строк и отправляет на печать диапазон с данными. как в этот код поместить установки печати? надо чтоб печать была на лист с альбомной ориентацией.
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 |
06.06.2014, 15:44 | #2 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
вопрос снят! сделал вот так -
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 |
06.06.2014, 15:45 | #3 |
Форумчанин
Регистрация: 24.03.2010
Сообщений: 349
|
Просто запишите свои действия макрорекордером и проанализируйте полученный код
Нет нерешаемых задач - есть недостаток времени и данных!
|
06.06.2014, 15:52 | #4 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
|
06.06.2014, 16:27 | #5 |
Форумчанин
Регистрация: 24.03.2010
Сообщений: 349
|
Мы все так учимся
Нет нерешаемых задач - есть недостаток времени и данных!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
запуск установки | Noble23 | Общие вопросы Delphi | 11 | 25.06.2013 14:07 |
TChromium сложность установки | qwerty55 | Компоненты Delphi | 6 | 15.04.2013 00:08 |
Выкидывает из установки | Jackomo | Операционные системы общие вопросы | 11 | 23.03.2009 10:55 |
Продолжения установки =) | Lemo | Операционные системы общие вопросы | 4 | 04.01.2009 22:03 |