Save active tab to PDF

[travisj]

I have a report that has several tabs. What would be the vba code to export/save the active tab as a pdf.

Thanks in advance.

 

[Sridharan]

Hi,

Below is the code to export the active report as PDF.

Sub ExportPDF()
    ThisDocument.ActiveReport.ExportAsPDF ("C:\Test")
End Sub

Sri

 

[travisj]

Thank you this work just like I wanted. I did make it so it saved the report name as well.

Sub ExportPDF()
Dim reportname
Dim str

reportname = ThisDocument.ActiveReport.Name
str = "C:\test\" & reportname

ThisDocument.ActiveReport.ExportAsPDF (str)
End Sub

The only problem I have is that the folder that the file is going to be saved must already exist. Do you now how to check to see if the directory exist and if not create the directory?

 

[Sridharan]

Hi,

Code to find out whether a Directory exists or not.

Sub CheckFolder()
    Dim FileObject As FileSystemObject
    Dim Folder As Folder
    Dim FolderName As String
    
    Set FileObject = CreateObject("Scripting.FileSystemObject")
    
    FolderName = InputBox("Enter Folder Path")
    If FileObject.FolderExists(FolderName) = True Then
        MsgBox "Folder Exists"
    Else
        MsgBox "Folder Doesn't Exists"
        FileObject.CreateFolder (FolderName)
    End If
End Sub

Make sure you include Microsoft Scripting Runtime. Tools->References->Microsoft Scripting Runtime.

Regards,
Sri