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

Вход

Регистрация

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

 

= Мир MS Excel/Как правильно задать принтер для печати? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как правильно задать принтер для печати? (Макросы/Sub)
Как правильно задать принтер для печати?
MarinaSergeevna Дата: Понедельник, 24.03.2014, 11:22 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день! Есть макрос, написанный для word, отлично работает, но когда пытаешься запустить его в excel выскакивает ошибка. Проблема в строке
ActivePrinter = "\\Server1\HP LJ P4010_P4510 Series PCL 6"
подскажите как ее переписать, что бы и в excel заработало

[vba]
Код
Sub Макрос4015()
ActivePrinter = "\\Server1\HP LJ P4010_P4510 Series PCL 6"
PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActivePrinter = "Canon LBP2900"
End Sub
[/vba]


Сообщение отредактировал MarinaSergeevna - Понедельник, 24.03.2014, 14:18
 
Ответить
СообщениеДобрый день! Есть макрос, написанный для word, отлично работает, но когда пытаешься запустить его в excel выскакивает ошибка. Проблема в строке
ActivePrinter = "\\Server1\HP LJ P4010_P4510 Series PCL 6"
подскажите как ее переписать, что бы и в excel заработало

[vba]
Код
Sub Макрос4015()
ActivePrinter = "\\Server1\HP LJ P4010_P4510 Series PCL 6"
PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActivePrinter = "Canon LBP2900"
End Sub
[/vba]
Автор - MarinaSergeevna
Дата добавления - 24.03.2014 в 11:22
Hugo Дата: Понедельник, 24.03.2014, 12:51 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3859
Репутация: 819 ±
Замечаний: 0% ±

365
Можно например так:
[vba]
Код
Sub testprint()
Dim aprint  As String

aprint = Application.ActivePrinter

Sheets(1).PrintOut Copies:=1, ActivePrinter:= _
          "PDFCreator on Ne01:"

Application.ActivePrinter = aprint

End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеМожно например так:
[vba]
Код
Sub testprint()
Dim aprint  As String

aprint = Application.ActivePrinter

Sheets(1).PrintOut Copies:=1, ActivePrinter:= _
          "PDFCreator on Ne01:"

Application.ActivePrinter = aprint

End Sub

[/vba]
Автор - Hugo
Дата добавления - 24.03.2014 в 12:51
MarinaSergeevna Дата: Понедельник, 24.03.2014, 14:18 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо, все работает, просто оказывается в самом макросе было много лишнего


Сообщение отредактировал MarinaSergeevna - Понедельник, 24.03.2014, 14:31
 
Ответить
СообщениеСпасибо, все работает, просто оказывается в самом макросе было много лишнего
Автор - MarinaSergeevna
Дата добавления - 24.03.2014 в 14:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как правильно задать принтер для печати? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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