Getting Print Job Information Example for Visual Basic

Private Sub GetPrintJobInfo(objPrintSCU As LEADDicomPrintSCU, sPrintJobInstanceUID As String)
   With objPrintSCU.PrintJob
      ' We need only the Execution Status and Execution Status Info
      .RequiredInfo = PJ_EXECUTION_STATUS + PJ_EXECUTION_STATUS_INFO

      ' Query the Print SCP for the Print Job information
      If .GetInfo(sPrintJobInstanceUID) = DICOM_SUCCESS Then
         ' Display the retrieved information
         MsgBox "Execution Status: " & .ExecutionStatus & vbNewLine & _
                "Execution Status Info: " & .ExecutionStatusInfo, , _
                "Print Job Info"
      End If
   End With
End Sub