All looks OK to me except the last line
? cMsg RETURN
should this not be
? cMsg ; RETURN
[EMAIL PROTECTED] wrote:
Send Harbour-users mailing list submissions to
[email protected]
To subscribe or unsubscribe via the World Wide Web, visit
http://lists.harbour-project.org/mailman/listinfo/harbour-users
or, via email, send a message with subject or body 'help' to
[EMAIL PROTECTED]
You can reach the person managing the list at
[EMAIL PROTECTED]
When replying, please edit your Subject line so it is more specific
than "Re: Contents of Harbour-users digest..."
------------------------------------------------------------------------
Today's Topics:
1. Switch ([email protected])
------------------------------------------------------------------------
Subject:
[Harbour-users] Switch
From:
[email protected]
Date:
Wed, 12 Nov 2008 09:31:50 -0300
To:
[email protected]
To:
[email protected]
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
_______________________________________________
Harbour-users mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour-users
