Private Sub Form_Timer()
   Dim PrinterStatus As String
   Dim JobStatus As String
   Dim ErrorInfo As String
   
   'Clear the status info for new info/status.

   
   'Call sub to perform check.
   'Debug.Print CheckPrinter(PrinterStatus, JobStatus)
   'Debug.Print PrinterStatus
   'Debug.Print JobStatus
   'Forms!Form1.T = JobStatus & " " & vbCr & PrinterStatus
   MsgBox JobStatus & " " & vbCr & PrinterStatus
End Sub