Printer Icon Shows in bottom right corner 1

[bebbo]

When printing via a Report the printer icon shows in the bottom right hand corner. Thats fine but it is still there after the print has finished. Further investigation shows that there is a print job queing. This is created when "set printer on" is called. Also the report will not print unless I use the "Set Printer To" Code. Any ideas to print without using the set printer to all the time. Also how to remove the print job queing. This stops other jobs from printing from time to time.

set printer on
lcRetval = Filetostr(kfn)
Create cursor MYCURSOR (text1 m)
Insert Into MYCURSOR (text1) Values (lcRetval)
REPORT FORM kitchen ;
NOCONSOLE NOEJECT ;
TO PRINTER
set printer off
If setup.Kit_ser
set printer to alltrim(setup.kit_p_name)
Else
SET PRINTER TO name alltrim(setup.kit_p_name)
endif

 

[Mike Gagnon]

bebbo

I have use the SET PRINTER ON in FPW2.6, but after VFP3.0 since FoxPro uses the Windows Printers, I have not found the need to use it. But if you feel you need to try adding :
SET PRINTER TO after your print job.
set printer on
lcRetval = Filetostr(kfn)
Create cursor MYCURSOR (text1 m)
Insert Into MYCURSOR (text1) Values (lcRetval)
REPORT FORM kitchen ;
NOCONSOLE NOEJECT ;
TO PRINTER
set printer off
SET PRINTER TO
SET PRINTER TO && Yes twice
If setup.Kit_ser
set printer to alltrim(setup.kit_p_name)
Else
SET PRINTER TO name alltrim(setup.kit_p_name)
endif
Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.