Getting Printer Configuration Information Example for Visual Basic

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

   ' Query the Print SCP for the printer configuration information
   With objPrintSCU.PrinterConfiguration
      If .Get() = DICOM_SUCCESS Then
         ' We will display only the Attributes of the first Printer Configuration Item

         If .PrinterConfigItems.Count > 0 Then
            Dim sMsg As String
            Dim Attrib As LAttribute

            For Each Attrib In .PrinterConfigItems(0).Attributes
               sMsg = sMsg & Attrib.Name & ": " & Attrib.Value & vbNewLine
            Next

            MsgBox sMsg, , "Printer Config Info"
         End If
      End If
   End With
End Sub