VB6 - Problematiche Export in PDF

[Mirco65]

Per esportare in PDFho usato una dll : CRAXDRT.DLL scaricata da internet;
ho trovato anche de codice che mi fa questo, ma purtroppo mi succede che i formati riconosciuti sono tanti tranne quello che trasforma in PDF;
Come mai ?
Inolte mi succee alla fine che la clessidra rimane in esecuzione.
Ecco il codice :

Select Case ToPrint.nRptTarget
Case crptToWindow
Dim objCrystal As CRAXDRT.Application
Dim objReport As CRAXDRT.Report
Set objCrystal = New CRAXDRT.Application
Set objReport = objCrystal.OpenReport(Report1.ReportFileName, 1)
'...code to set report parameters, login information etc...
ExportReportToPDF objReport, "c:\appo\Beds.pdf", Report1.ReportFileName
case....


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

ovviamente dopo aver caricato la DLL
Qualcuno mi anagizza il codice per favore e mi faccia sapere perchè questi due problemi !!!!!
Grazie

[StegcO]

Ciao

Sicuro che ti conviene usare una .dll? io uso una ClasseDiModulo e funziona, se ti interessa cambiare metodo dimmelo che ti spiego come faccio.

[Mirco65]

Certo che mi interessa ! ti ringrazio

[Mirco65]

Scusami ... Allora ?

[StegcO]

Copia questo Modulo di Classe pari pari come l'ho messo qui:

clsPDFCreator.cls

Scarica

Dopodichè, in un ipotetico form e in un ipotetico CommandButton (cmd_pdf) per esportare dei dati in PDF fai:

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"
    
        .BeginPage

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

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

Se ci sono problemi chiedi pure

[Mirco65]

Grazie !
gentilissimo, ma a serve per esportare da file .rpt e non crearlo di nuovo !

Ciao

[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

[Mirco65]

Ho capito, in pratica in questo modo s può anche fare a meno del Crystal Report, ma volendo fare l'esportazione non è che conosci una libreria ad ok da poter utilizzare ?
Riconosco comunque che il tuo metodo è anche valido, ma sarebbe semplice fare l'esport del file .rpt.
Fammi sapere ciao!

[StegcO]

Purtroppo no, io uso questo metodo, uso PDF al posto di RPT

[Mirco65]

Certo, .. figurati non basta ringraziarti anzi..e semmai dovessi trovare qualche libreria che faccia al caso mio, fami sapere per favore intanto io continuerò a cercare.
In VB Net, è on il Crystal report integrato, permette di farlo.
Saluti.