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