Getting Printer Configuration Information Example for VB.NET

Private Sub GetPrinterConfigInfo(ByRef objPrintSCU As LTDICPRNSCULib.LEADDicomPrintSCU)
   ' Assume that the Association is already established
   ' Query the Print SCP for the printer configuration information
   Dim sMsg As String
   Dim Attrib As LTDICPRNSCULib.LAttribute

   With objPrintSCU.PrinterConfiguration
      If .Get() = LTDicomKernelLib.DicomErrorCodes.DICOM_SUCCESS Then
         ' We will display only the Attributes of the first Printer Configuration Item
         If .PrinterConfigItems.Count > 0 Then
            For Each Attrib In .PrinterConfigItems.Item(0).Attributes
               sMsg = sMsg & Attrib.Name & ": " & Attrib.Value & vbNewLine
            Next Attrib
            MessageBox.Show(sMsg, "Printer Config Info")
         End If
      End If
   End With
End Sub