VB6 - Problematiche Export in PDF

[Mirco65]

Scusate ma il mio problema per l'esport è sempre irrisolto e per questo chiedo aiuto a qualcuno esperto per risolverlo una volta per tutte perchè penso sicuramente qualcuno già l'avrà fatto.
Ho trovato una DLL (CRAXDRT.DLL) sulla rete e anche il relativo codice :

Private Sub Command1_Click()
Dim objCrystal As CRAXDRT.Application
Dim objReport As CRAXDRT.Report
Set objCrystal = New CRAXDRT.Application
Set objReport = objCrystal.OpenReport(ReportFileName, 1)
'...code to set report parameters, login information etc...
ExportReportToPDF objReport, "M:\Testing\Beds.pdf", "Beds Held"
End Sub


Private Sub ExportReportToPDF(ReportObject As CRAXDRT.Report, Byval FileName As String, Byval ReportTitle As String)
Dim objExportOptions As CRAXDRT.ExportOptions
ReportObject.ReportTitle = ReportTitle
With ReportObject
.EnableParameterPrompting = False
.MorePrintEngineErrorMessages = True
End With
Set objExportOptions = ReportObject.ExportOptions
With objExportOptions
.DestinationType = crEDTDiskFile
.DiskFileName = FileName
.FormatType = crEFTPortableDocFormat
.PDFExportAllPages = True
End With
ReportObject.Export False
End Sub


---> Purtroppo quando l'istruzione esegue : ReportObject.Export False mi da errore --> DLL non presente oppur obsoleta (questo è il primo problema)

--> Se tolgo il false (ReportObject.Export ) mi esce un box con il tipo formato da salvare ma NON ESCE QUELLO CHE INTERESSA E CIOE' IL PDF.

COME MAI ?
QUALCUNO CONOSCE QUESTA DLL ?
Grazie

[gippo58]

Originariamente inviato da StegcO
Scusa tu hai un RecodSet?

Butti i dati del DB su Report e poi in PDF.. io con questa esportazione in PDF ho addirittura sostituito i Report

Sono un nuovo iscritto.
non me ne intendo molto di come ci si presenta sul forum o come si pongono le domande, per questo mi scuso e saluto tutti pregandovi di accogliermi fra voi.
Ho seguito questa discussione che ritengo molto interessante per me che andavo in cerca della stessa cosa.
gentilmente chiederei a StegcO di potermi fare un esempio di come .."...Butti i dati del DB su Report e poi in PDF...."
grazie

[StegcO]

In questa discussione ho mostrato come creare un file .PDF, io, per esempio prendo i dati da un Database (che può essere un'elenco di fatture) e li "stampo" appunto su PDF.

Dimmi cosa non hai capito

[gippo58]

CIAO StegcO
grazie per avermi preso in considerazione, premetto che sono agli inizi e non sono proprietario di molta terminologia!!! ma credo mi capirai ed è così che provo a spiegarmi:
io riesco a produrre un datareport popolato di dati che ricavo da un db di access. ora credo di aver capito che è possibile successivamente o contestualmente esportare il datareport prodotto in PDF? se questa magia è vera dimmi come fai?
MILLE GRAZIE

[StegcO]

Ho spiegato tutto qui

http://forum.html.it/forum/showthrea...8#post12112448

hai provato? ti funziona? crea un PDF con scritto TEST?

[gippo58]

si funziona, ma io credevo fosse possibile creare direttamente il pdf dal recordset
mi spiego :
pre creare il report faccio:

Set DrContratto.DataSource = Rs
DrContratto.Refresh
Rs.Close
DrContratto.Show

a questo punto visualizzo il report. Ora è possibile con pochi passaggi ottenere il pdf invece che il datarepoprt?
grazie

[StegcO]

Private Sub cmd_pdf_Click()

Dim clPDF As New clsPDFCreator
Dim strFile As String

strFile = "C:\Esempio.pdf"
  
With clPDF
    .Title = "Esempio"
    .ScaleMode = pdfCentimeter
    .PaperSize = pdfA4
    .Margin = 0
    .Orientation = pdfPortrait

    .InitPDFFile strFile
    .LoadFont "Fnt", "Courier New"
    
        'Crei un ciclo  fino alla fine del tuo Rs

        .BeginPage

            .DrawText 1, 24, "TEST ", "Fnt", 8
     
        .EndPage

        'Loopi il ciclo, così ti crea una pagina per ogni Recordset, oppure fai il ciclo in modo da creare un file per ogni RecordSet

    .EndObject
    .ClosePDFFile
End With
  
Call Shell("rundll32.exe url.dll,FileProtocolHandler " & (strFile), vbMaximizedFocus)
  
End Sub

dimmi se hai problemi

[gibra]

Se non si vuole generare un PDF da zero, si può generare il report e stamparlo tranquillamente su una stampante PDF virtuale, usando ad esempio la famosissima libreria PDFCreator che è considerata la migliore.
Questa libreria è scritta in VB6, è gratuita e sono disponibili anche i sorgenti.

Basta una ricerca su Google per trovarla...

[gippo58]

grazie StegcO e gibra
farò delle prove e poi vi dirò. se mi inceppo spero nella vostra comprensione
non vedo l'ora di mettermi al lavoro, ciao a presto....

[gippo58]

Buongiorno StegcO
SEI MAGICO!
ho fatto molte prove ed è molto entusiasmante comandare liberamente una stampa!!!!!
l'appetito è forte ed irresistibile, mi piacerebbe poter caricare un' immagine e piazzargliela dentro, o dare un colore ad un carattere come faccio?
inoltre se rigenero il file "esempio" una seconda volta non lo sovrascrive....
grazie RIMANGO IN DEBITO.

PS per quanto riguarda l'utilizzo delle librerie, come dice gibra, beh... mi vergogno ma devo ammettere che non saprei come procedere... :master: