Skip to main content
cancel
Showing results for 
Search instead for 
Did you mean: 
Not applicable

PDF Export

Would like to save/export as pdf, I'm aware about one option that we need to create report and then say print to it and from drop down select pdf; Do let me know if other direct options available.

Also with this feature also i do not see pdf in drop down, how can I achieve that.

Thanks...

1 Solution

Accepted Solutions
maneshkhottcpl
Partner - Creator III
Partner - Creator III

Use this macro to create a pdf file.











sub

sendReport

"D:\Generated_Report\"

'Please provide the path where do you want to save

Set

oReports = ActiveDocument.Fields("Report_ID"

).GetPossibleValues

Dim

arrReports()

if

oReports.Count > 0

then

redim



arrReports(oReports.Count)

for

i = 0 to oReports.Count -1

set

rep = ActiveDocument.GetReport(reportID)

"_"

& reportName &

".pdf"

'Cleaning out any previous report

' Print report to PDF

' Check the file is printed, before trying to send it

next

call

activateSaveAs()

end

if

'Delete the temporary reports

for

each

item in arrReports

'deleteReport(item)

next

' Don't forget to activate Save As again after print!

call

activateSaveAs()

set

fileTest =

nothing

end



sub







View solution in original post

3 Replies
Not applicable
Author

Option is to create a macro which saves in background. Try searching the forum as it is regurarly discussed. Other option is to purchase a pdf-license and distribute it in publisher.

You need a pdf-writer to create a pdf. I use cute-pdf but there are several other out there.

/Michael

maneshkhottcpl
Partner - Creator III
Partner - Creator III

Use this macro to create a pdf file.











sub

sendReport

"D:\Generated_Report\"

'Please provide the path where do you want to save

Set

oReports = ActiveDocument.Fields("Report_ID"

).GetPossibleValues

Dim

arrReports()

if

oReports.Count > 0

then

redim



arrReports(oReports.Count)

for

i = 0 to oReports.Count -1

set

rep = ActiveDocument.GetReport(reportID)

"_"

& reportName &

".pdf"

'Cleaning out any previous report

' Print report to PDF

' Check the file is printed, before trying to send it

next

call

activateSaveAs()

end

if

'Delete the temporary reports

for

each

item in arrReports

'deleteReport(item)

next

' Don't forget to activate Save As again after print!

call

activateSaveAs()

set

fileTest =

nothing

end



sub







kaushalview
Partner - Creator II
Partner - Creator II

Hi,

Thanx Manish its working