SET PRINTER TO (p_file)
SET DEVICE TO printer
SET CONSOLE off
SET PRINTER ON
IF print_ok
IF PCOUNT() < 2
DO (printprog)
ELSE
DO (printprog) with tuparm
ENDIF
ENDIF
print_ok = pr_eject()
SET DEVICE TO SCREEN
SET PRINT off
SET CONSOLE on
SET PRINTER TO
Then I do rawprint
This works.
Thanks,
Jeff
---------------
Jeff Johnson
[email protected]
(623) 582-0323
www.san-dc.com
www.arelationshipmanager.com
On 06/06/2013 12:18 PM, Jeff Johnson wrote:
Thanks Dan! It works great. I am now printing invoices with no blank
pages. Only one little problem left; a blank page prints on the
default printer.
I have tried many things but can't see why it is happening. It
happens when I start the second invoice job and when it exits the
application.
It must be in the way I am printing to a file. Something to do with
the set device to printer or set printer on or set printer to.
Jeff
---------------
Jeff Johnson
[email protected]
(623) 582-0323
www.san-dc.com
www.arelationshipmanager.com
On 06/04/2013 04:27 PM, Dan Covill wrote:
On 06/04/13 02:33 PM, Jeff Johnson wrote:
Dan: The whole problem is because these invoices print letter quality
bold and wide in the heading. Can your print class do that by sending
the print codes before the text?
Jeff
Apparently, yes. Here's a snippet:
------------
procedure PrintBody
* Print a single invoice to (TempFile)
set memowidth to 255
if PtrName = "LPT1" or PtrName = "\\"
*-- It's an OKIDATA, add the control codes
@ 02, 00 say chr(27)+chr(103) && Esc g = 15 cpi
@ 02,103 say chr(27)+chr(80) && Esc P = 10 cpi
@ 02,106 say INVNO
@ 02,114 say iif(PRINTED,"*","")
@ 02,116 say chr(27)+chr(103) && back to 15 cpi
else
*-- A Windows printer, no codes
@ 02,106 say INVNO
@ 02,114 say iif(PRINTED,"*","")
endif
-------------
This code is from FPW 2.5!
Dan
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
