Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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...
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 > 0then
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
eachitem in arrReports
'deleteReport(item)
next
' Don't forget to activate Save As again after print!
call
activateSaveAs()
set
fileTest =nothing
end
sub
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
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 > 0then
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
eachitem in arrReports
'deleteReport(item)
next
' Don't forget to activate Save As again after print!
call
activateSaveAs()
set
fileTest =nothing
end
sub
Hi,
Thanx Manish its working