Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Печать документов, при помощи 2-х принтеров / 2 сообщений из 2, страница 1 из 1
09.03.2010, 09:28
    #36508171
Andrey0071
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать документов, при помощи 2-х принтеров
Для печать документов в Excel2003, используется два принтера, лазерный и матричный, задействуются при нажатии кнопок на странице. Подскажите какой умный макрос прописать на кнопке, чтобы при нажатии на одну кнопку использовался принтер по умолчанию, при нажатии на другую, матричный принтер.
...
Рейтинг: 0 / 0
09.03.2010, 09:48
    #36508201
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать документов, при помощи 2-х принтеров
Andrey0071,
Сервис - макрос - записать макрос
Печать - выбрать принтер - ок.
Должно получится что-то в этом роде:


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Макрос3()

    Range("F2:F7").Select
    Application.ActivePrinter = "\\adf\HP LaserJet 2200 Series PCL (Ne07:)"
    Application.ActivePrinter = "PDF-XChange for ABBYY PDF Transformer 2.0 (Ne00:)"
    Application.ActivePrinter = "\\adf\HP Photosmart 2600 series (Ne03:)"
    Application.ActivePrinter = "\\adf\HP LaserJet 2200 Series PCL (Ne07:)"
    ActiveWindow.SelectedSheets.PrintOut Copies:= 1 , ActivePrinter:= _
        "\\adf\HP LaserJet 2200 Series PCL (Ne07:)", Collate:=True
End Sub
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Печать документов, при помощи 2-х принтеров / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]