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
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
