Hello Victor, 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 SETPRC( 0, 0 ) DO WHILE nChar <= ASC( "Z" ) @ PROW() + 1, 0 SAY REPLICATE( CHR( nChar ), 75 ) nChar ++ ENDDO EJECT SET PRINTER TO SET DEVICE TO SCREEN ! COPY DEMO.TXT PRN @ ROW(), 0 SAY "Please check if your printer prints after pressing any key" @ ROW()+2, 0 SAY "Press any key to continue..." INKEY( 0 ) RETURN NIL With best regards. Sudip Pritpal Bedi wrote: > > Hello Sudip > > > Sudip Bhattacharyya wrote: >> >> Thank you very much for very quick reply and it solved the problem. :-) >> > > You did not mention how your problem was solved. > It is always nice to repost the code with "solved" amendments > so that anybody else could grasp it properly. > > Regards > Pritpal Bedi > > -- View this message in context: http://www.nabble.com/Printing-Problem-tp23696757p23834786.html Sent from the Harbour - Dev mailing list archive at Nabble.com. _______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour