Sudip,
Try this with the latest SVN .-
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 PRINTER TO // Print *now* in Win!
SET DEVICE TO SCREEN
@ 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
--
Xavi
Sudip Bhattacharyya escribió:
Hi All,
I am a very new user of Harbour. I found that during printing with Lpt1 DMP,
printing halts sometimes, which I didn't face when working with
xHarbour+gtwvw.
Here is a sample which will show want I want to mean:-
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
@ 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
My another question is, how can I use Windows Printing (like I did with
win32prn in xHarbour) in Harbour?
Thank in Advance :-)
With best regards.
Sudip
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
