Io lo uso in [VB6] - Non so se ti può essere di aiuto ma... provare su [.Net] non nuoce
Aggiungi un tasto all toolbar di Active report per attivare l'esportazione
codice:Private Sub ActiveReport_ReportStart() ... Me.Toolbar.Tools.Add "Esporta in PDF" ... End Sub
Nell'evento Click della toolbar effettui l'export utilizzando l'oggetto di ActiveReport per l'esportazione in PDF
Semplice vero :tongue:codice:Private Sub ActiveReport_ToolbarClick(ByVal tool As DDActiveReports2.DDTool) Dim Epdf As New ActiveReportsPDFExport.ARExportPDF If tool.Caption = "Esporta in PDF" Then Epdf.FileName = [PathNomeFile] Epdf.Export Report.Pages End If End Sub
![]()
P.S.: Fammi sapere se funziona che prima o poi il grande salto su [.Net] lo faccio anch'io![]()

Rispondi quotando