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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод формы на печать (думаю простая задачка)
Вывод формы на печать
Лехаа Дата: Четверг, 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]
 
Ответить
Сообщениекнопка с макросом расположена в другой книге название ее "ЭД", по ее нажатии активируется книга "печать" и с листа "форма 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 в 10:32
KuklP Дата: Четверг, 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
 
Ответить
Сообщение[vba]
Code
Sub Макрос6()    
workbooks("печать.xlsm").Sheets("Форма 1").PrintOut Copies:=1, Collate:=True
End Sub
[/vba]
Автор - KuklP
Дата добавления - 06.09.2012 в 11:02
Лехаа Дата: Четверг, 06.09.2012, 11:14 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 4 ±
Замечаний: 0% ±

KuklP - работает, но лист "форма 1" все равно появляется на экране - в принципе ваш код делает то же самое что и мой - только короче smile , хочется чтобы при нажатии на кнопку лист шел на печать но при этом на экране не появлялся
 
Ответить
СообщениеKuklP - работает, но лист "форма 1" все равно появляется на экране - в принципе ваш код делает то же самое что и мой - только короче smile , хочется чтобы при нажатии на кнопку лист шел на печать но при этом на экране не появлялся
Автор - Лехаа
Дата добавления - 06.09.2012 в 11:14
KuklP Дата: Четверг, 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
 
Ответить
Сообщение[vba]
Code
Sub Макрос6()
      Application.ScreenUpdating = 0
      workbooks("печать.xlsm").Sheets("Форма 1").PrintOut Copies:=1, Collate:=True
End Sub
[/vba]
Автор - KuklP
Дата добавления - 06.09.2012 в 11:45
Лехаа Дата: Четверг, 06.09.2012, 14:40 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 4 ±
Замечаний: 0% ±

То что надо! спасибо! biggrin
 
Ответить
СообщениеТо что надо! спасибо! biggrin
Автор - Лехаа
Дата добавления - 06.09.2012 в 14:40
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод формы на печать (думаю простая задачка)
  • Страница 1 из 1
  • 1
Поиск:

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