Getting Printer Information Example for Visual Basic

Private Sub GetPrinterInfo(objPrintSCU As LEADDicomPrintSCU)
   ' Assume that the Association is already established

   With objPrintSCU.Printer
      ' We need only the Printer Status and Printer Status Info
      .RequiredInfo = PRN_PRINTER_STATUS + PRN_PRINTER_STATUS_INFO

      ' Query the Print SCP for the information
      If .GetInfo() = DICOM_SUCCESS Then
         ' Display the retrieved information
         MsgBox "Printer Status: " & .PrinterStatus & vbNewLine & _
                "Printer Status Info: " & .PrinterStatusInfo, , _
                "Printer Info"
      End If
   End With
End Sub