Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=94144&view=findpost&p=1833430 Sun, 13 Jan 2008 07:05:13 +0000 Выбор принтера https://forum.sources.ru/index.php?showtopic=94144&view=findpost&p=1833430
http://allenbrowne.com/AppPrintMgt.html]]> leonidps Особенности VBA-кода в различных офисных приложениях https://forum.sources.ru/index.php?showtopic=94144&view=findpost&p=708314 Fri, 06 May 2005 21:30:35 +0000 Выбор принтера https://forum.sources.ru/index.php?showtopic=94144&view=findpost&p=708314 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
]]> likhobory Особенности VBA-кода в различных офисных приложениях https://forum.sources.ru/index.php?showtopic=94144&view=findpost&p=708313 Fri, 06 May 2005 21:30:35 +0000 Выбор принтера https://forum.sources.ru/index.php?showtopic=94144&view=findpost&p=708313 makedonskij Особенности VBA-кода в различных офисных приложениях