ActiveReport1.0下的报表怎样保存，输出为TIF或PDF等格式！！

Question

ActiveReport1.0下的报表怎样保存，输出为TIF或PDF等格式！！搞了半天，也没搞出来，有没有谁知道,如有请告知，谢谢哟！！

Answer 1

有示例代码啊!你参看: RDFViewer

Answer 2

'Private Sub CmdExport_Click()
'    Dim pdf As New ActiveReportsPDFExport.ARExportPDF
'    Set rpt = New rptCheckExport
'    cdlExport.CancelError = True
'    cdlExport.Filter = "Pdf (*.pdf)|*.pdf|Any File (*.*)|*.*"
'    cdlExport.FilterIndex = 1
'    cdlExport.FileName = ""
'    cdlExport.DefaultExt = "pdf"
'    cdlExport.DialogTitle = "Save As"
'    cdlExport.InitDir = App.Path & "\Pdf"
'    cdlExport.Flags = cdlOFNOverwritePrompt
'    cdlExport.ShowSave
'    If cdlExport.FileName <> "" Then
'
'        pdf.FileName = cdlExport.FileName
'
'        If Not arv.ReportSource Is Nothing Then
'
'            pdf.Export arv.ReportSource.Pages
'        Else
'            pdf.Export arv.Pages
'        End If
'    End If
'    MsgBox "导出成功！", , "提示"
'End Sub
我是这样用的

Answer 3

Set rpt = New rptCheckExport
rptCheckExport是导出的表格形式（.dsr文件）