Is the printer ready ?

StrataFrame Forum

Back

Is the printer ready ?

Author	Message
Charles R Hankey	Charles R Hankey posted 18 Years Ago Topic Details Share Topic
Group: Forum Members Posts: 524, Visits: 30K	This sound like it should be easy but it isn't. I need to find out from with a VFP app if a particular printer is ready to print. i.e it's current status (Ready, out of paper, off-line whatever) This code, offered up on Universal Thread, doesn't work because if the printer is installed the handle will happen successfully (assuming the printer server box is on line) no matter what the status of the printer is. (code below is a VFP function with syntax adjusted from VB) LPARAMETERS tcprintername &&#DEFINE cJobs_OFFSET 77 DECLARE INTEGER OpenPrinter IN winspool.drv; STRING pPrinterName, INTEGER @phPrinter, INTEGER pDefault DECLARE INTEGER ClosePrinter IN winspool.drv INTEGER hPrinter cPrinter=tcprintername hPrinter=0 IF OpenPrinter(m.cPrinter, @hPrinter, 0) = 0 &&? "Unable to obtain handle for the printer." RETURN -1 ENDIF = ClosePrinter(hPrinter) RETURN 0 I found this http://www.merrioncomputing.com/Programming/PrintStatus.htm and I think my answer for creating a dll in .net may be in here but putting it together is a little beyound my current understanding of how these pieces fit. Anyone who has solved this, knows of a third party dll that can be obtained or purchased, or who has already invented this wheel - you guidance will be greatly appreciated. Charles
	Reply Like 1
Reply
Edhy Rijo	E Edhy Rijo posted 18 Years Ago Post Details Share Post
E Group: StrataFrame Users Posts: 2.4K, Visits: 23K	Hi Charles, I found the code below in google http://bytes.com/forum/thread351305.html Private Enum PrinterStatus PrinterIdle = 3 PrinterPrinting = 4 PrinterWarmingUp = 5 ' For more states see WMI docs. End Enum Private Function PrinterStatusToString(ByVal ps As PrinterStatus) As String Dim s As String Select Case ps Case PrinterStatus.PrinterIdle s = "waiting (idle)" Case PrinterStatus.PrinterPrinting s = "printing" Case PrinterStatus.PrinterWarmingUp s = "warming up" Case Else s = "unknown state" End Select PrinterStatusToString = s End Function Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles MyBase.Load Dim strPrintServer As String strPrintServer = "localhost" Dim WMIObject As String, PrinterSet As Object, Printer As Object WMIObject = "winmgmts://" & strPrintServer PrinterSet = GetObject(WMIObject).InstancesOf("win32_Printer") For Each Printer In PrinterSet MsgBox( _ Printer.Name & ": " & _ PrinterStatusToString(Printer.PrinterStatus) _ ) Next Printer End Sub Copy the above code to an empty form and test the result. I don't know if this is the best way to deal with this, but it may get you started. Edhy Rijo
	Reply Like 1