Cuado la compilo con xHarbou funciona bien, pero con Harbour da un error al compilar
El Error da el la linea DEFAULT
- Code: Select all Expand view
METHOD sendtoprinter( lDelete )
LOCAL x := 1
LOCAL nRet := 0
LOCAL cMsg := ""
LOCAL lShow := .f.
DEFAULT lDelete := .t.
SET DEVICE TO SCREEN
SET PRINTER TO
IF ::nCopy < 1
::nCopy := 1
ENDIF
FOR x := 1 TO ::nCopy
::printlogo()
nRet := PrintFileRaw( ::cPrinter, ::cFile, ::cDocument )
cMsg += "Copy " + WCStr( x ) + CRLF
IF nRet # 1
lShow := .t.
ENDIF
SWITCH nRet
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
cMsg += "PRINTED OK!!!"
END
cMsg += CRLF + CRLF
NEXT
IF lDelete
FErase( ::cFile )
ENDIF
IF lShow
MSGINFO( cMsg, ::cMsg )
ENDIF
RETURN NIL