Вывод формы на печать - Мир MS Excel

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вывод формы на печать (думаю простая задачка)

Вывод формы на печать

Дата: Четверг, 06.09.2012, 10:32 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 68

Репутация: 4 ±

Замечаний: 0% ±

кнопка с макросом расположена в другой книге название ее "ЭД", по ее нажатии активируется книга "печать" и с листа "форма 1" в этой книге печатается заданный диапазон, каждый раз принажатии кнопки на экран мелькает лист выводимый на печать затем возвращается на книгу с кнопкой, как сделать так чтобы по нажатии кнопки в фоновом режиме распечатался заданный диапазон с книги "печать" с листа "форма 1"

вот такой макрос:
-----------------------------------

[vba]

Code

Sub Макрос6()
Windows("печать.xlsm").Activate
Sheets("Форма 1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Windows("ЭД.xlsm").Activate
End Sub

[/vba]

Ответить

Дата: Четверг, 06.09.2012, 11:02 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

[vba]

Code

Sub Макрос6()
workbooks("печать.xlsm").Sheets("Форма 1").PrintOut Copies:=1, Collate:=True
End Sub

[/vba]

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

Сообщение отредактировал KuklP - Четверг, 06.09.2012, 11:04

Ответить

Дата: Четверг, 06.09.2012, 11:14 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 68

Репутация: 4 ±

Замечаний: 0% ±

KuklP - работает, но лист "форма 1" все равно появляется на экране - в принципе ваш код делает то же самое что и мой - только короче smile

smile

, хочется чтобы при нажатии на кнопку лист шел на печать но при этом на экране не появлялся

Ответить

Дата: Четверг, 06.09.2012, 11:45 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

[vba]

Code

Sub Макрос6()
Application.ScreenUpdating = 0
workbooks("печать.xlsm").Sheets("Форма 1").PrintOut Copies:=1, Collate:=True
End Sub

[/vba]

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

Сообщение отредактировал KuklP - Четверг, 06.09.2012, 11:45

Ответить

Дата: Четверг, 06.09.2012, 14:40 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 68

Репутация: 4 ±

Замечаний: 0% ±

То что надо! спасибо! biggrin

biggrin

Ответить

Вывод формы на печать (думаю простая задачка)

Страница 1 из 1
1

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