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

Reply via email to