Hello Victor,
I am now confirmed about my doubt :-)
My final "problem free" demo sample is:-
FUNCTION Main()
LOCAL nChar := ASC( "A" )
CLEAR SCREEN
SET DEVICE TO PRINTER
SETPRC( 0, 0 )
DO WHILE nChar <= ASC( "Z" )
@ PROW() + 1, 0 SAY REPLICATE( CHR( nChar ), 75 )
nChar ++
ENDDO
EJECT
SET DEVICE TO SCREEN
SET PRINTER TO
@ ROW(), 0 SAY "Press any key to continue..."
INKEY( 0 )
RETURN NIL
BTW, my today's experience also solved some printing problem my old
software, developed with xHarbour+gtwvw ;-)
Thanks a lot.
With best regards.
Sudip
--
View this message in context:
http://www.nabble.com/Printing-Problem-tp23696757p23852259.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
