/Kalle Dahlberg

Yes, I  am doing just that. I create a  recordset in VB, pass that to the CR
report and then call the  PDF export option. Works great.

Actually, Seagate added the PDF export as an add-in on  CR8 (you can get the
package from their web site - Free) for several months. I had been using
that with CR8 with  mostly success for about six months but I had one report
that blew up when  you tried the  PDF export on it. With 8.5 it works great.

Wayne

=================================
Private Sub cmdExport_Click()
    Dim myRS2 As ADODB.Recordset

    Me.MousePointer = vbHourglass
    Set myRS2 = New ADODB.Recordset
    strSQL = "SELECT * From [" & TempTable & "]"
    myRS2.Open strSQL, myConn, adOpenKeyset, adLockOptimistic, adCmdText
    crScoresSummary.DiscardSavedData
    crScoresSummary.Database.SetDataSource myRS2
    crScoresSummary.ReadRecords
    ExportReportAsPDF
    Me.MousePointer = vbDefault
End Sub

Private Sub ExportReportAsPDF()
    With crScoresSummary
       .ExportOptions.DestinationType = crEDTDiskFile
       .ExportOptions.FormatType = crEFTPortableDocFormat
       .Export True
    End With
End Sub
=================================

HTH

Wayne

Can you also decide from within the VB code what name the PDF-file gets?

Regards,
Kalle Dahlberg

Wayne Wengert skrev i meddelandet ...