Active report 2 export (pdf, rtf)

Posted by: coolot on 4 August 2017, 2:59 pm EST

  • Posted 4 August 2017, 2:59 pm EST

    How to make Active Report aks me where to save pdf or rtf file?

    My code is next:

    Private Sub ActiveReport_ReportEnd()
    Dim p As New ActiveReportsPDFExport.ARExportPDF
    p.filename = "c:\pdf\Activereport.pdf"
    p.Permissions = 4
    p.Export Me.Pages
    End Sub

    And what I want is to ask me where to save that report (p.filename = aks me where to save)

    Thanks in advace
  • Replied 4 August 2017, 2:59 pm EST

    Hello ,

    The most easy way to create a dialog is using Microsoft Common Dialog Control.

    e.g. add the MS Common Dialog Control into the page footer section as custom control and execute following code:

    Private Sub ActiveReport_ReportEnd()

    CommonDialog1.DialogTitle = "File name"
    If Trim(CommonDialog1.FileName) <> "" Then

        Dim exp As New ARExportPDF

        exp.FileName = CommonDialog1.FileName

        exp.Export me.Pages

    End If

    End Sub


    Sergey Romanov.

  • Replied 4 August 2017, 2:59 pm EST

Need extra support?

Upgrade your support plan and get personal unlimited phone support with our customer engagement team

Learn More

Forum Channels