Can you give VBA Code to save each report as PDF

[rrbo]

Dear All,

I have a Document that contains four reports like
Report(1)
Report(2)
Report(3)
Report(4)

I can save whole document as PDF and
also Active Report Tab as PDf,
But i wanna save each report tab from BO Document as a separate PDF using VBA.

Can you Please give me the sample code for this.

Save whole Document to PDF:

Sub ExportPDF()

Dim curdoc As Document
Dim currpt As Report
Set curdoc = ActiveDocument
Set currpt = ActiveReport

curdoc.ExportAsPDF ("C:\Test&quot

End Sub

Save Active Tab to PDf :
Sub ExportPDF()
ThisDocument.ActiveReport.ExportAsPDF ("C:\Test&quot
End Sub

Can you anybody please give me the sample code to save each report tab as separate PDF using VBA.

Thanks

 

[rrbo]

I got the Answer for

To save as all report tabs as PDF :

Sub ExportPDF()
Dim rep As Report
Dim num_of_reps As Integer
Dim rep_name As String
Dim rep_path As String
Dim str As String
Dim ndate As String
Dim app1 As Application

Set app1 = Application
app1.Interactive = False
app1.BreakOnVBAError = False

'Count the number of reports
num_of_reps = ActiveDocument.Reports.Count

str = "Your path goes here"

For i = 1 To num_of_reps
Set rep = ActiveDocument.Reports.Item(i)
rep_name = rep.Name
rep_path = str & rep.Name
Call rep.ExportAsPDF(rep_path)
Next i
End Sub


Thanks