Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Printing a file directly to a printer
Message
De
02/10/2008 02:34:37
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Fonctions Windows API
Versions des environnements
Visual FoxPro:
VFP 6 SP5
OS:
Windows XP
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01351589
Message ID:
01352186
Vues:
20
Check if http://simple-pc-help.com/support/error_1400.html?t202id=231&t202kw=error%201400&gclid=CLOF6pT2h5YCFSRWMAodN0m3FQ applies

>Below is the working class code using the rawprint.vcx.
>The filelocn table stores paths to many things including a bar code printer. I create a temporary file and store it in a property of the form.
>
>lcAlias=ALIAS()
>IF NOT USED('filelocn')
>	USE filelocn IN 0 SHARED
>ENDIF
>SELE filelocn
>LOCATE FOR parm='BCDEPRN'
>cSourceFileName=THIS.lblFile
>IF FOUND()
>	cPrinterName=UPPER(ALLT(DIRECT))
>ELSE
>	=MESSAGEBOX("Parameter not Configured (BCDEPRN)"+CHR(13)+"Packing List Will Not Print",64,"CANNOT PROCEED")
>	RETURN
>ENDIF
>SET CLASSLIB TO libs\rawprint ADDI
>oPrn=CREATEOBJECT("PrintDev")
>oPrn.cPrinterName = cPrinterName
>oPrn.cfilename = cSourceFileName
>IF oPrn.oOpen()
>	IF !oPrn.oPrintFile()
>		MESSAGEBOX("Error sending to printer")
>	ENDIF
>	oPrn.oClose()
>ELSE
>	MESSAGEBOX("OpenPrinter() Error: "+STR(oPrn.nOpenError))
>ENDIF
>
>RELEASE oPrn
>IF NOT EMPTY(lcAlias)
>	SELE (lcAlias)
>ENDIF
>
>
>Boy did it ever work!
>
>But I do have a question, the nOpenError is a number, how do I understand what it means? Is it an error code returned by the printer? the server? the operating system? the whatever? I like to know what error 1400 means. (While testing this appeared.)
>
>Thanks for your help. I have a happy customer.
>Mike
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform