• Andrey
  • Восстановленный участник
  • На форуме с 19 сентября 2001г.
  • Сообщений: 129
  • Спасибо: 0

Тема: Как получить список установленных принтеров?

это нужно для последующей установки акстивного принтера

  • Lenich
  • Восстановленный участник
  • На форуме с 27 мая 2004г.
  • Сообщений: 59
  • Спасибо: 0

Re: Как получить список установленных принтеров?

Список можно так:

Sub Example_GetPlotDeviceNames()
    Dim Layout As AcadLayout
    Set Layout = ThisDrawing.ModelSpace.Layout
    ' Refresh the current plot information for
    ' this session.
    Layout.RefreshPlotDeviceInfo
    ' List all the valid device names for the system
    Dim plotDevices As Variant
    Dim plotDevicesName As Variant
    plotDevices = Layout.GetPlotDeviceNames()
    Dim x As Integer
    For x = LBound(plotDevices) To UBound(plotDevices)
       plotDevicesName = plotDevicesName & plotDevices(x) & Chr(13)
    Next
 MsgBox plotDevicesName
End Sub

Как выбрать нужный, можно почитать про ConfigName

  • Andrey
  • Восстановленный участник
  • На форуме с 19 сентября 2001г.
  • Сообщений: 129
  • Спасибо: 0

Re: Как получить список установленных принтеров?

прошу прощение забыл написать ,что среда excel как быть в этом случае?

  • Maxim T
  • Восстановленный участник
  • На форуме с 1 августа 2003г.
  • Сообщений: 628
  • Спасибо: 0

Re: Как получить список установленных принтеров?

> Andrey
Вот здесь http://forum.ixbt.com/0026/031310.html есть универсальный ответ, как получить имена принтеров непосредственно из системы. Для полноты картины можете посмотреть "непонятные слова" в MSDN library. Так как на том форуме старые сообщения удаляются, скопирую код ответа сюда:

Set service = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set printers =  service.ExecQuery ("select * from Win32_Printer")
For Each printer in printers
    WScript.Echo printer.Name
Next