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
--
View this message in context:
http://www.nabble.com/Printing-Problem-tp23696757p23696757.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
