Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Печать макросом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Печать макросом (Печать макросом выбранных листов)
Печать макросом
Михась Дата: Среда, 29.08.2012, 19:25 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Всем ДВС!Записал макрорекордером печать листов,но возникла проблема:иногда не все листы заполняются и печать пустых листов как то не очень.Если не затруднит,подскажите как сделать чтобы кнопка печать срабатывала по выбранным листам.Большое спасибо.
К сообщению приложен файл: 5847505.xls (20.0 Kb)
 
Ответить
СообщениеВсем ДВС!Записал макрорекордером печать листов,но возникла проблема:иногда не все листы заполняются и печать пустых листов как то не очень.Если не затруднит,подскажите как сделать чтобы кнопка печать срабатывала по выбранным листам.Большое спасибо.
Автор - Михась
Дата добавления - 29.08.2012 в 19:25
light26 Дата: Среда, 29.08.2012, 21:19 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
С решением вопроса я не помогу, но могу сказать, что уже имеющийся макрос лучше записать так.
[vba]
Code
Sub Печать()
'
' Печать Макрос
' Макрос записан 29.08.2012 (user)

       Sheets("Лист1").PrintOut Copies:=1, Collate:=True
       Sheets("Лист2").PrintOut Copies:=1, Collate:=True
       Sheets("Лист3").PrintOut Copies:=1, Collate:=True
      End Sub
[/vba]

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Среда, 29.08.2012, 21:24
 
Ответить
СообщениеС решением вопроса я не помогу, но могу сказать, что уже имеющийся макрос лучше записать так.
[vba]
Code
Sub Печать()
'
' Печать Макрос
' Макрос записан 29.08.2012 (user)

       Sheets("Лист1").PrintOut Copies:=1, Collate:=True
       Sheets("Лист2").PrintOut Copies:=1, Collate:=True
       Sheets("Лист3").PrintOut Copies:=1, Collate:=True
      End Sub
[/vba]
Автор - light26
Дата добавления - 29.08.2012 в 21:19
RAN Дата: Среда, 29.08.2012, 22:02 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Да пожалте biggrin
К сообщению приложен файл: 6758907.xls (45.5 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДа пожалте biggrin
Автор - RAN
Дата добавления - 29.08.2012 в 22:02
light26 Дата: Среда, 29.08.2012, 22:38 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (RAN)
Да пожалте

Осибоська, насяльника. Михась просил, чтобы не печатались все пустые листы tongue

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Среда, 29.08.2012, 22:38
 
Ответить
Сообщение
Quote (RAN)
Да пожалте

Осибоська, насяльника. Михась просил, чтобы не печатались все пустые листы tongue
Автор - light26
Дата добавления - 29.08.2012 в 22:38
Михась Дата: Четверг, 30.08.2012, 17:30 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

RAN большое спасибо,то что нужно!Light26 спасибо за совет,буду пробовать.Я пока только рекордером пользуюсь,писать еще рановато biggrin
 
Ответить
СообщениеRAN большое спасибо,то что нужно!Light26 спасибо за совет,буду пробовать.Я пока только рекордером пользуюсь,писать еще рановато biggrin
Автор - Михась
Дата добавления - 30.08.2012 в 17:30
KuklP Дата: Четверг, 30.08.2012, 22:11 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Выделили нужные ярлыки с ctrl, макрос на хоткей:
[vba]
Code
Sub www()
       Dim x As Worksheet
       For Each x In Windows(1).SelectedSheets
           x.PrintOut , , 1, , , , True
       Next
End Sub
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Четверг, 30.08.2012, 22:14
 
Ответить
СообщениеВыделили нужные ярлыки с ctrl, макрос на хоткей:
[vba]
Code
Sub www()
       Dim x As Worksheet
       For Each x In Windows(1).SelectedSheets
           x.PrintOut , , 1, , , , True
       Next
End Sub
[/vba]
Автор - KuklP
Дата добавления - 30.08.2012 в 22:11
Serge_007 Дата: Четверг, 30.08.2012, 22:23 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Выделив нужные ярлыки с ctrl можно и без макроса печатать по Ctrl+P smile

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеВыделив нужные ярлыки с ctrl можно и без макроса печатать по Ctrl+P smile
Автор - Serge_007
Дата добавления - 30.08.2012 в 22:23
Матрёна Дата: Четверг, 30.08.2012, 23:17 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 40 ±
Замечаний: 0% ±

Quote (Serge_007)
Выделив нужные ярлыки с ctrl можно и без макроса печатать по Ctrl+P


!!!!!!!!!!!!!!!!!!!!!!
А ларчик просто открывался!
 
Ответить
Сообщение
Quote (Serge_007)
Выделив нужные ярлыки с ctrl можно и без макроса печатать по Ctrl+P


!!!!!!!!!!!!!!!!!!!!!!
А ларчик просто открывался!
Автор - Матрёна
Дата добавления - 30.08.2012 в 23:17
KuklP Дата: Четверг, 30.08.2012, 23:33 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Для непустых листов:
[vba]
Code
Public Sub www()
       Dim sh As Worksheet
       For Each sh In ThisWorkbook.Worksheets
           If IsNull(sh.UsedRange.Text) Then sh.PrintOut , , 1, , , , -1
       Next
End Sub
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Четверг, 30.08.2012, 23:34
 
Ответить
СообщениеДля непустых листов:
[vba]
Code
Public Sub www()
       Dim sh As Worksheet
       For Each sh In ThisWorkbook.Worksheets
           If IsNull(sh.UsedRange.Text) Then sh.PrintOut , , 1, , , , -1
       Next
End Sub
[/vba]
Автор - KuklP
Дата добавления - 30.08.2012 в 23:33
RAN Дата: Пятница, 31.08.2012, 08:42 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Quote (KuklP)
If IsNull(sh.UsedRange.Text)

Это не обязательно не пустой.
Не пустой будет так
[vba]
Code
If IsNull(sh.UsedRange.Text) Or sh.UsedRange.Text <>""
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Quote (KuklP)
If IsNull(sh.UsedRange.Text)

Это не обязательно не пустой.
Не пустой будет так
[vba]
Code
If IsNull(sh.UsedRange.Text) Or sh.UsedRange.Text <>""
[/vba]
Автор - RAN
Дата добавления - 31.08.2012 в 08:42
light26 Дата: Воскресенье, 02.09.2012, 08:57 | Сообщение № 11
Группа: Друзья
Ранг: Старожил
Сообщений: 1351
Репутация: 91 ±
Замечаний: 0% ±

2007, 2010, 2013
Quote (Михась)
Light26 спасибо за совет,буду пробовать.Я пока только рекордером пользуюсь,писать еще рановато

Я тоже. Но код, созданный таким способом, всегда перепроверяю и редактирую, где могу.

Я не волшебник. Я только учусь
 
Ответить
Сообщение
Quote (Михась)
Light26 спасибо за совет,буду пробовать.Я пока только рекордером пользуюсь,писать еще рановато

Я тоже. Но код, созданный таким способом, всегда перепроверяю и редактирую, где могу.
Автор - light26
Дата добавления - 02.09.2012 в 08:57
Михась Дата: Среда, 05.09.2012, 17:34 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 0 ±
Замечаний: 0% ±

Уважаемый RAN! В примере все работает отлично,но опять проблема-не могу понять как перенести на свой файл код.Растолкуйте,пожайлуста,если Вас не затруднит.Спасибо.
 
Ответить
СообщениеУважаемый RAN! В примере все работает отлично,но опять проблема-не могу понять как перенести на свой файл код.Растолкуйте,пожайлуста,если Вас не затруднит.Спасибо.
Автор - Михась
Дата добавления - 05.09.2012 в 17:34
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Печать макросом (Печать макросом выбранных листов)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!