Функция PrinterProperties

hWnd

Дескриптор родительского окна для диалогового окна

hPrinter

Дескриптор принтера

Пример

Private Sub Form_Load()
  Dim I As Integer

' Список всех возможных принтеров
  For I = 0 To Printers.Count - 1
        List1.AddItem Printers(I).DeviceName
        If Printers(I).DeviceName = Printer.DeviceName Then
' Выбираем текущий принтер по умолчанию
           List1.Selected(I) = True 
        End If
   Next I
End Sub

Private Sub List1_Click()
  Dim Prt As Printer

' Используем принтер, выбранный в ListBox
   For Each Prt In Printers
       If Prt.DeviceName = List1.Text Then
          Set Printer = Prt
          Exit For
        End If
     Next
End Sub

Private Sub Command1_Click()
   Dim lRet As Long, hPrinter As Long
   Dim PD As PRINTER_DEFAULTS

   PD.pDatatype = 0
   PD.pDesiredAccess = STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_USE
   PD.pDevMode = 0
   lRet = OpenPrinter(Printer.DeviceName, hPrinter, PD)
    If lRet = 0 Then
       MsgBox "Ошибка при открытии принтера!"
     Else
       lRet = PrinterProperties(Me.hwnd, hPrinter)
       lRet = ClosePrinter(hPrinter)
     End If
End Sub 

Категория