Printing from an APL2000Draw

Search: Go


>>	APLDN Home

>>	Events

>>	Trainings

>>	APL Books

>>	APLDN Links

>>	Discussion Groups

>>	Downloads

>>	Articles

>>	Library

>>	Learning Tools

>>	APLDN User IO

>>	APL2000.com

Logout
Profile

APLDN Home > Discussion Groups > APL+Win Interpreter > Bug Reports

Bug Reports

Notify me of new comments

Author

Thread: Printing from an APL2000Draw

Nicolai.Ohm

Printing from an APL2000Draw
Posted: Friday, February 10, 2006 7:03 AM (EST)

The Eject Method does not work when printing from an APL2000Draw (see enclosed function). However, sending a []TCFF to the printer at the end of each page instead of using the Eject Method will solve the problem. This is just another example how reliable these old APL concepts are.

PrintAPL2000Draw;prt;tgt;pg

:if 0¹½(prt„'psPrint')ŒWI 'self'
0 0½prt ŒWI 'New' 'Printer' 'Open'
prt ŒWI'Abort'
:end

prt ŒWI 'Print' ' ' © initialize printer

   tgt ŒWI 'Reset' ª tgt ŒWI 'Clear'               © Clear OCX
   tgt ŒWI 'CreateFont' 'TIBI' 'Times New Roman' 3 © Bold+Italic
   tgt ŒWI 'FillText' 100 10 'TIBI' 14('This is page ',•pg)
   tgt ŒWI 'DrawOnHDC' (›prt ŒWI 'hdc'),0 0

:end

prt ŒWI'Close'

Comments:

Author Thread:

davin.church

Printing from an APL2000Draw
Posted: Saturday, February 11, 2006 1:09 PM (EST)

Do I recall seeing that some recent version of APL now allows []WI 'Eject' 1 (or something like that) to allow a page to be ejected even when it doesn't know that it's been written on?


Support

Printing from an APL2000Draw
Posted: Monday, February 13, 2006 6:31 PM (EST)

You are correct Davin.  In version 5.2, an optional argument was added to the Eject method for the Printer object. An argument of 1 forces a page to eject even when nothing is printed on the page whereas an argument of 0 gives the old behavior.

APL2000 Support

Service is the rent we pay for being. It is the very purpose of life, and not something you do in your spare time.
--- Marion Wright Edelman