Выбор принтера

Как выдать документ на принтер, который не по умолчанию.

ACCESS

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

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

получение списка принтеров

For Each prn in Printers
 Debug.Print prn.DeviceName
Next

WORD/EXCEL/POWERPOINT/PUBLISHER

указываем принтер по умолчанию

Application.ActivePrinter = "НР LaserJet 1320 PCL 6"

для получения списка установленных принтеров используем возможности WSH

VISIO

указываем принтер по умолчанию

Application.ActivePrinter = "НР LaserJet 1320 PCL 6"

для Office XP и выше:

печатаем текущий документ с указанного принтера

ThisDocument.Printer = "НР LaserJet 1320 PCL 6"

возможно получение списка установленных принтеров

  aStrPrinters = Application.AvailablePrinters
    For Each strPrinter In aStrPrinters
        Debug.Print strPrinter
    Next

в Access пользователь может каждому отчёту прописать "свой принтер"

http://allenbrowne.com/AppPrintMgt.html