Hello Przemek
>Maybe I'm wrong but I have serious doubts about it.
> SET PRINTER TO
>closes printer file and should always flush the buffers.
>I rather think it was a typo in your tests or sth like that.
You are ABSOLUTELY CORRECT :-)
Problem was due to sequence of commands. My final "problem free" demo is as
follows:-
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 PRINTER TO // This is wrong. This should be placed after SET
DEVICE TO SCREEN.
SET DEVICE TO SCREEN
SET PRINTER TO
@ ROW(), 0 SAY "Press any key to continue..."
INKEY( 0 )
RETURN NIL
I also sent the same message in reply to Viktor.
Thank you very much.
With best regards.
Sudip
--
View this message in context:
http://www.nabble.com/Printing-Problem-tp23696757p23852944.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
