about loading the picture, haven't the foggiest, but exporting:
VB Code:
Private Sub Active_ReportEnd()
Me.Toolbar.Tools(14).Enabled = True
End Sub
Private Sub Active_ReportStart()
Me.Toolbar.Tools.Add "PDF Export"
'the indexes 0 to 13 are used by the default tools, so anything u add will start from index 14
Me.Toolbar.Tools(14).Enabled = False
End Sub
Private Sub ActiveReport_ToolbarClilck(ByVal tool As DDActiveReports.DDTool)
If tool.Caption = "PDF Export" Then
Dim objPDFFile As ActiveReportsPDFExport.ARExportPDF
Set objPDFFile = New ActiveReportsPDFExport.ARExportPDF
With CommonDialog1
.Filter = "Acrobat (*.pdf)|*.pdf"
.FileName = ""
.ShowSave
If .FileName = "" Then Exit Sub
objPDFFile.FileName = .FileName
objPDFFile.Export Me.Pages
End With
End If
End Sub