Como faço para exportar relatório para pdf no active report?

1 - em referencias do projeto marque "ARCTIVREPORTS PDF EXPORT FILTER"

 

2 - CRIAR UM BOTAO PARA EXPORTAR NO SEU RELATORIO "ACTIVEREPORT"

    NO START DO RELATORIO

          Private Sub ActiveReport_ReportStart()

                ME.Toolbar.Tools.Add "Exportar"

          END SUB

 

3 - CRIAR O EVENTO PARA EXPORTAr. (RELACIONADO COM O BOTAO CRIADO)

 

Private Sub ActiveReport_ToolbarClick(ByVal Tool As DDActiveReports2.DDTool)

  If Tool.Caption = "Exportar" Then
     Dim ExportarPDF As Object
      Set ExportarPDF = New ARExportPDF
         ExportarPDF.FileName = App.Path & "" & ARQUIVO_A_SER_CRIADO & ".PDF"
        ExportarPDF.Export Me.Pages
           MsgBox "ARQUIVO GERADO EM [ " & ExportarPDF.FileName & " ]", vbInformation, "GERADO COM SUCESSO..."
            Set ExportarPDF = Nothing
ENd If
End Sub

eu tenho um exemplo disso se quiser me manda um email que eu retorno pra tu irmao ,

Korn quero o exemplo sim. agnaldoandre@ig.com.br

ja foi , se precisar de explicar me add no msn que eu digo , se resolveu encerra o topico irmão, falow

Korn, o exemplo é excelente, juntei o post do Alfterra com alguns itens do exemplo, ficou ótimo o relatório. Obrigado a ambos.