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"
    CommonDialog1.ShowSave
    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

    Thanks
Need extra support?

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

Learn More

Forum Channels