Profox > Forum

Forum Home

Visual FoxPro

Rapoarte si generatoare de rapoarte

Raport to PDF F...

Raport to PDF File

9/21/2009 8:48:53 AM

lmax25

57 posts

Raport to PDF File
(N/A)

Cum pot sa export rapoartele vfp in format pdf direct din vfp simplu si cu "scule free" ?

9/21/2009 9:14:48 AM

Iaci

96 posts

Re: Raport to PDF File
(N/A)

Cu CuteWriterPdf. Il instalezi si se comporta ca o imprimanta virtuala. Tot ce directionezi spre el este salvat ca fisier PDF.

9/21/2009 6:44:50 PM

danilea

212 posts

Re: Raport to PDF File
(N/A)

S-au folosesti PDFCreator.

9/22/2009 8:29:34 AM

Ovidiu Dobie

105 posts

Re: Raport to PDF File
(N/A)

"S-au" poti sa folosesti PrimoPDF "s-au" BullzipPDF ...
no offense :(

Ovidiu Dobie

9/22/2009 12:28:43 PM

Doru Constantin

321 posts

Re: Raport to PDF File
(N/A)

Va prefaceti ca nu stiti despre ce este vorba. Nu cred ca a fost vorba sa folosesti o "imprimata virtuala".
Cred ca se doreste generarea unui fisier pdf direct din vfp. Am incercat si interfata COM a lui PDFCreator dar se misca ff greu si mai si "scapa" memorie!
In fine, eu asta folosesc (am mai simplificat codul pentru o mai buna intelegere):

[CODE]

Report2PDF("test.frx", "C:\Test.pdf")

*--
Function Report2PDF(tcRaportFile, tcPDFFile)
    Local lcGhostScriptFileName, psFile, oldPrinter, pdfPrinter
    lcGhostScriptFileName = "C:\Program Files\gs\gs8.64\bin\gswin32c.exe" && --> todo
    If File(lcGhostScriptFileName)
        Wait Window Nowait "FRX > PS"
        psFile = Addbs(Sys(2023)) + Sys(2015) + ".ps"
        oldPrinter = Set("Printer", 3)
        pdfPrinter = "PDF" && --> todo (orice imprimanta postscript: pdfcreator, bullzip, ghostscript, etc)
        Set Printer To Name (pdfPrinter)
        Report Form (tcRaportFile) Noconsole Nodialog To File (psFile)
        Set Printer To Name (oldPrinter)
        Wait Clear
        *--> Wait Window Nowait "PS > PDF"
        lcCmd = ["] + lcGhostScriptFileName + ["] + [ -q -dCompatibilityLevel=1.4 -sOwnerPassword=profox -dEncryptionR=3 -dKeyLength=128 -dPermissions=2052 -sDEVICE=pdfwrite -o "] + tcPDFFile + [" -c 3000000 setvmthreshold .setpdfwrite -f "] + psFile + ["]
        DoAndWait(lcCmd, "HID")
        Erase (psFile)
    Endif
Endfunc

[/CODE]

Functia "DoAndWait" o gasiti la FAQs -- Cum determin o procedură să aştepte executarea unui fişier executabil după care să continue rularea codului?

Doua lucruri trebuie configurate (am eliminat codul aici):
    1. unde se afla "gswin32c.exe"
    2. instalarea unei imprimante postscript (ghostscript vine cu una la pachet dar nu o instaleaza)

Merge si combinarea pdf si docinfo pentru fisierul rezultat dar pentru simplitate am eliminat codul respectiv.

PDF rezultat poate fi doar printat

(se poate configura si altfel)

Nu am inventat nimic. Totul se afla aici: http://pages.cs.wisc.edu/~ghost/doc/svn/Readme.htm

Doru.

9/22/2009 8:32:33 PM

lmax25

57 posts

Re: Raport to PDF File
(N/A)

Va multumesc tuturor pentru raspunsuri ! Totusi voi incerca varianta domnului Doru Constantin pentru ca eu cam asa ceva am vrut : sa generez din rapoarte un fisier de tip .PDF direct din VFP.

3/26/2010 1:35:22 PM

stefan_JKSL

62 posts

Re: Raport to PDF File
(N/A)

am incercat acest cod dar nu merge. am folosit ca imprimanta postscript pdfcreator si am modificat codul :
Function Report2PDF(tcRaportFile, tcPDFFile)
    Local lcGhostScriptFileName, psFile, oldPrinter, pdfPrinter
    lcGhostScriptFileName = "C:\Program Files\GPLGS\gswin32c.exe" && --> todo
    If File(lcGhostScriptFileName)
        Wait Window Nowait "FRX > PS"
        psFile = Addbs(Sys(2023)) + Sys(2015) + ".ps"
        oldPrinter = Set("Printer", 3)
        pdfPrinter = "PDFCreator" && --> todo (orice imprimanta postscript: pdfcreator, bullzip, ghostscript, etc)
        Set Printer To Name (pdfPrinter)
        REPORT FORM (tcRaportFile) NOCONSOLE TO FILE (psFile)
        Set Printer To Name (oldPrinter)
        Wait Clear
        *--> Wait Window Nowait "PS > PDF"
        lcCmd = ["] + lcGhostScriptFileName + ["] + [ -q -dCompatibilityLevel=1.4 -sOwnerPassword=profox -dEncryptionR=3 -dKeyLength=128 -dPermissions=2052 -sDEVICE=pdfwrite -o "] + tcPDFFile + [" -c 3000000 setvmthreshold .setpdfwrite -f "] + psFile + ["]
        DoAndWait(lcCmd, "HID")
        Erase (psFile)
    Endif
Endfunc

nu-mi da nicio eroare dar nici fisierul nu-mi genereaza. unde am gresit?

Page 1 of 1

Visual FoxPro

Rapoarte si generatoare de rapoarte

Raport to PDF F...