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
