Hi! This exemple fail. E0020 Incomplete statement or unbalanced delimiters Because (DEFAULT) flag. Harbour CVS * $Id: ChangeLog 9912 2008-11-12 11:34:50Z vszakats $
// The example prints a file in RAW mode and demonstrates // the possible return values of PrintFileRaw(). PROCEDURE Main() LOCAL cPrinter := GetDefaultPrinter() LOCAL cFile := "MyFile.Txt" LOCAL nResult := -1 LOCAL cMsg := "PrintFileRaw(): " CLS IF Empty( cPrinter ) ? "No default printer found" QUIT ENDIF nResult := PrintFileRaw( cPrinter, cFile, "Test for PrintFileRaw()" ) SWITCH nResult CASE -1 cMsg += "Invalid parameters passed to function" ; EXIT CASE -2 cMsg += "WinAPI OpenPrinter() call failed" ; EXIT CASE -3 cMsg += "WinAPI StartDocPrinter() call failed" ; EXIT CASE -4 cMsg += "WinAPI StartPagePrinter() call failed" ; EXIT CASE -5 cMsg += "WinAPI malloc() of memory failed" ; EXIT CASE -6 cMsg += "File " + cFile + " not found" ; EXIT DEFAULT //Fail here cMsg += cFile + " PRINTED OK!!!" END ? cMsg RETURN Tks, Itamar M. Lins Jr. _______________________________________________ Harbour-users mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour-users
