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

Вход

Регистрация

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

 

= Мир MS Excel/Вывод на печать неактивного листа макросом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод на печать неактивного листа макросом (Макросы/Sub)
Вывод на печать неактивного листа макросом
artika2000 Дата: Пятница, 11.08.2017, 21:47 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый вечер.
Прошу помощи, самостоятельно не разобрался. Плоды воображения в файле
Возможно ли выполнение одним макросом и копипаст и вывод на печать, при выделении диапазона мышью.
Заранее благодарен,

С уважением Артем
К сообщению приложен файл: _brd_.xlsm (65.5 Kb)
 
Ответить
СообщениеДобрый вечер.
Прошу помощи, самостоятельно не разобрался. Плоды воображения в файле
Возможно ли выполнение одним макросом и копипаст и вывод на печать, при выделении диапазона мышью.
Заранее благодарен,

С уважением Артем

Автор - artika2000
Дата добавления - 11.08.2017 в 21:47
InExSu Дата: Пятница, 11.08.2017, 23:05 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Вставьте в нужное Вам место:
[vba]
Код
Dim sh01 As Worksheet
Set sh01 = Worksheets("бланк")
sh01.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
[/vba]


Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Сообщение отредактировал InExSu - Пятница, 11.08.2017, 23:29
 
Ответить
СообщениеВставьте в нужное Вам место:
[vba]
Код
Dim sh01 As Worksheet
Set sh01 = Worksheets("бланк")
sh01.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
[/vba]

Автор - InExSu
Дата добавления - 11.08.2017 в 23:05
artika2000 Дата: Пятница, 11.08.2017, 23:25 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
InExSu, Спасибо за помощь, сходу не получилось, но все равно, спасибо Вам.
Буду пробовать.
 
Ответить
СообщениеInExSu, Спасибо за помощь, сходу не получилось, но все равно, спасибо Вам.
Буду пробовать.

Автор - artika2000
Дата добавления - 11.08.2017 в 23:25
InExSu Дата: Пятница, 11.08.2017, 23:30 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
сходу не получилось

В коде были артефакты, щас убрал.


Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
Сообщение
сходу не получилось

В коде были артефакты, щас убрал.

Автор - InExSu
Дата добавления - 11.08.2017 в 23:30
artika2000 Дата: Пятница, 11.08.2017, 23:42 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
InExSu, Будьт добры, подскажите, несмотря на пятницу, у меня получается
К сообщению приложен файл: 6274790.png (104.7 Kb)
 
Ответить
СообщениеInExSu, Будьт добры, подскажите, несмотря на пятницу, у меня получается

Автор - artika2000
Дата добавления - 11.08.2017 в 23:42
AndreTM Дата: Пятница, 11.08.2017, 23:51 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
artika2000, вам же указали, что "в нужное Вам место".
Где-то Рядом с Beep, наверное? :)

А вообще, нежелательно смешивать операции "сборки" данных и тут же их вывода. Дайте пользователю сначала посмотреть, что получилось.
Ну и данный вам код печати - удобнее оформить отдельной процедурой, и вызывать именно её.


Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщениеartika2000, вам же указали, что "в нужное Вам место".
Где-то Рядом с Beep, наверное? :)

А вообще, нежелательно смешивать операции "сборки" данных и тут же их вывода. Дайте пользователю сначала посмотреть, что получилось.
Ну и данный вам код печати - удобнее оформить отдельной процедурой, и вызывать именно её.

Автор - AndreTM
Дата добавления - 11.08.2017 в 23:51
InExSu Дата: Пятница, 11.08.2017, 23:55 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Где-то Рядом с Beep

Поддерживаю


Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
Сообщение
Где-то Рядом с Beep

Поддерживаю

Автор - InExSu
Дата добавления - 11.08.2017 в 23:55
artika2000 Дата: Пятница, 11.08.2017, 23:57 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
AndreTM, спасибо, всем Вам спасибо,
Цитата
нежелательно смешивать операции "сборки" данных и тут же их вывода
Да, все риски принимаю, планирую их отлаживать. Очень надо. хороших выходных Вам. Спасибо
С уважением, Артем.


Сообщение отредактировал artika2000 - Суббота, 12.08.2017, 01:14
 
Ответить
СообщениеAndreTM, спасибо, всем Вам спасибо,
Цитата
нежелательно смешивать операции "сборки" данных и тут же их вывода
Да, все риски принимаю, планирую их отлаживать. Очень надо. хороших выходных Вам. Спасибо
С уважением, Артем.

Автор - artika2000
Дата добавления - 11.08.2017 в 23:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод на печать неактивного листа макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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