Przemek: >David's report suggests that code like:
> proc main() > local hFile, cFile, cData > cFile := "PRN" > cData := "Printer test" + hb_osNewLine() + ; > Version() + hb_osNewLine() + ; > Os() + hb_osNewLine() + ; > DTOC( Date() ) + " " + Time() + hb_osNewLine() + ; > Chr( 12 ) > if ( hFile := fopen( cFile, 2 ) ) != -1 > ? "Writting to", cFile > ? "Bytes written:", fwrite( hFile, cData, len( cData ) ), ; > "from:", len( cData ) > fclose( hFile ) > else > ? "Cannot open:", cFile > endif > return >does not work. It work perfectly with current Harbour AND with old xHarbour ( Dec 2006 ) Tested with "prn" and "lpt1" ---------------------------------- [E:\harbour807\harbour\bin]hbrun e:\prntest.prg Writting to lpt1 Bytes written: 81 from: 81 ---------------------------------- and output in printer/paper is correct As I can see this is the start of solution :-) David Macias _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
