On Tue, 02 Jun 2009, Sudip Bhattacharyya wrote: Hi,
> Hello Pritpal, > Sorry! :-( (I couldn't imagine, you really want see those negligible > changes) > And thank you very much for your asking :-) > Here it is :- > FUNCTION Main() > LOCAL nChar := ASC( "A" ) > CLEAR SCREEN > SET DEVICE TO PRINTER > SET PRINTER TO DEMO.TXT // this line is added > SETPRC( 0, 0 ) > DO WHILE nChar <= ASC( "Z" ) > @ PROW() + 1, 0 SAY REPLICATE( CHR( nChar ), 75 ) > nChar ++ > ENDDO > EJECT > SET PRINTER TO // this line is added And probably only this line was important to force flushing print buffer before key press. Try to remove from your code: SET PRINTER TO DEMO.TXT // this line is added and: ! COPY DEMO.TXT PRN // this line is added leaving only 'SET PRINTER TO' and check what will happen. best regards, Przemek _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
