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
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to