Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
URGENT: PDFCreator
Message
From
27/09/2013 18:29:17
 
 
To
27/09/2013 13:27:43
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows Server 2012
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Web
Miscellaneous
Thread ID:
01583899
Message ID:
01584367
Views:
73
Did you try FoxyPreviewer? Two lines of codes, that's all you need to create PDFs. And it's totally free.

>>Which output file format you use?
>PDF
>
>Just wrote a quick function.
>FUNCTION PrintPDFReport
>LPARAMETERS lcReportFullName, lcOutPutFileName, lcExtraReportClauses
>
>#DEFINE cnOUTPUT_SCREEN 1
>#DEFINE cnOUTPUT_PRINT 2
>#DEFINE cnOUTPUT_EMAIL 3
>#DEFINE cnOUTPUT_FILE 4
>
>LOCAL loFile
>LOCAL lcReportFullName
>LOCAL lcOutPutFileName
>LOCAL lcOutPutFilePath
>LOCAL lcFRX2AnyLibrary
>
> lcFRX2AnyLibrary = 'FRX2Any'
> SET CLASSLIB TO &lcFRX2AnyLibrary IN g:\system\FRX2Any.APP ALIAS FRX2Any
>
> loFile = CREATEOBJ('FRX2Any.PDFFile')
>
> IF TYPE('loFile') = 'O'
>
> loFile.UNLOCK('xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx') && Unlock FRX2Any
>
> loFile.cExportFileName = JUSTFNAME(lcOutPutFileName)
>
> loFile.cSaveFolder = JUSTPATH(lcOutPutFileName)
>
> loFile.lDisplayStatus = .T. && Force FRX2Any to display conversion process status
>
> loFile.nOutPutType = cnOUTPUT_SCREEN && Specifies that output file will be displayed after creation
>
> loFile.lTranslateFontStyle = .T.
>
> loFile.nCodePage = 1252
>
> loFile.SAVE(lcReportFullName)
>
> loFile.RELEASE()
> ENDIF
>
>ENDFUNC
SET CLASSLIB TO
Previous
Reply
Map
View

Click here to load this message in the networking platform