ComDlgErr() or IsPrinter()

[ORibeiro]

When there is no printer installed in MS-Windows, the PRINTER and REPORT commands show GPF errors when the print is sent without preview.

I noticed that the IsPrinter() causes problems and I chose to use the ComDlgErr() to detect if there is printer installed. I'm on the right track?

Thanks,

[ORibeiro]

The ComDlgErr() printer.prg class works correctly to detect if there is printer installed in Windows?

I did numerous tests and noticed that in a few cases it fails indicating that there is printer, in this cases error occurs and in the PRNGETNAME() command.

[James Bott]

A printer has to be both installed AND available.

I don't have xHarbour's source for the isPrinter() function, but here is an old one I have been using. I don't have a computer without an installed printer so I am not sure how it works in that case.

Code: Select all  Expand view

//Returns .t. if current printer is available
Function isPrinter()
   local oPrn,lSuccess:=.t.
   PRINTER oPrn NAME "Report..." PREVIEW
   IF oPrn:hDC == 0
      lSuccess:=.f.
   END IF
return lSuccess

Give it a try.

James

[ORibeiro]

Thanks James.

[James Bott]

I also have a function that returns an array of installed printers which you could use to check to see if there are no installed printers. If you need it, let me know.

James

[ORibeiro]

Interesting! send me this function, please.

Thanks a lot.

oscar@oasysitu.com

[James Bott]

Code: Select all  Expand view

//Returns an array of all available printers.
FUNCTION GetPrinters()

   local aPrn,  cText

   cText := StrTran(GetProfString("Devices"),Chr(0), chr(13)+chr(10))
   aPrn  := Array(Mlcount(cText, 250))
   Aeval(aPrn, {|v,e| aPrn[e] := Trim(Memoline(cText, 250, e)) } )

Return aPrn
 

[ORibeiro]

Very good James,
Thanks a lot.