PrintOut VBA

Печатайте на принтер Excel

Application.ActivePrinter = "MyPrinter"

или

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="MyPrinter"

При этом активный принтер компьютера менять не надо. =======================================================
ActiveSheet.PrintOut ActivePrinter:="HP LaserJet 5L" 

Range("A1:C10").PrintOut 

ActivePrinter:="HP LaserJet 5L (LPT1:)" 

ThisWorkbook.Worksheets(1).Range("B2:C10").PrintOut 

Предполагается, что распечатать нужно только ячейки и графические об'екты диапазона B2:C10 первого рабочего листа текущей рабочей книги.

If Worksheets("киоски").Range("F4").Value <> "" Then 

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True

Else

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True

If Worksheets("киоски").Range("F4").Value <> "" and 

Worksheets("киоски").Range("E4").Value <> "" Then 

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate:=True

Else

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True


Метод PrintOut позволяет распечатать рабочую книгу (Workbook), диаграмму (Chart), диапазон ячеек (Range), рабочий лист(Worksheet). Синтаксис метода PrintOut представлен ниже:
Expression.PrintOut(From, To, Copies, Previev, ActivePrinter, PrintToFile, Collate)
Синтаксис метода PrintOut содержит элементы, представленные
____________________________________________________________________________
Элемент            |                                      Описание
______________|______________________________________________________________
Expression          Выражение, возвращающее объект Workbook
___________________________________________________________________________

From                  Необязательный параметр типа Variant задает страницу, с которой                                                  начинается печать. Если этот аргумент отсутствует, то печать начинается с                                      первой страницы.
_____________________________________________________________________________
To                         Необязательный параметр типа Variant задает последнюю печатаемую                                           страницу. Если этот аргумент отсутствует, то печать продолжается до                                             последней страницы.
___________________________________________________________________________
Copies                Необязательный параметр типа Variant. Задает количество печатаемых копий
_____________________________________________________________________________
Preview                Необязательный параметр типа Variant, принимающий одно из двух                                                 значений:
                                Присвоение ему значения True приводит к выводу перед печатью окна                                              предварительного просмотра.
                                Для значения False (значение по умолчанию) печать производится без                                             предварительного просмотра
_____________________________________________________________________________
ActivePrinter           Необязательный параметр типа Variant. Задает имя активного принтера
_____________________________________________________________________________
PrintToFile         Необязательный параметр типа Variant. Если данный параметр имеет                                               значение True, то производится печать в файл. При этом пользователю                                          выдается запрос на ввод имени файла
______________________________________________________________________________
Collate                 Необязательный параметр типа Variant. Если ему задать значение True, то                                        копии будут объединены.
______________________________________________________________________________
Элементы синтаксиса метода PrintOut
Ниже приведен пример распечатки рабочего листа с именем Лист1:
WorkSheets (“Лист1”). PrintOut(1, 2, 1, False, PrintToFile:=True)



ACCESS

Начиная с 11 версии (Office XP) в ACCESS появилась коллекция Printers, содержащая все активные принтеры

ExpandedWrap disabled
Set Application.Printer = Application.Printers(хх)

получение списка принтеров
ExpandedWrap disabled
For Each prn in Printers
 Debug.Print prn.DeviceName
Next


WORD/EXCEL/POWERPOINT/PUBLISHER

указываем принтер по умолчанию
ExpandedWrap disabled
Application.ActivePrinter = "НР LaserJet 1320 PCL 6"

VISIO

указываем принтер по умолчанию
ExpandedWrap disabled
Application.ActivePrinter = "НР LaserJet 1320 PCL 6"

для Office XP и выше:

печатаем текущий документ с указанного принтера
ExpandedWrap disabled
ThisDocument.Printer = "НР LaserJet 1320 PCL 6"

возможно получение списка установленных принтеров
ExpandedWrap disabled
  aStrPrinters = Application.AvailablePrinters
    For Each strPrinter In aStrPrinters
        Debug.Print strPrinter
    Next