Choose filename and folder when saving report as PDF

S

Sietske

Dear all,

My form contains a button to save a report to PDF. However, the future
user can not choose the folder the pdf is placed, nor the name of the
pdf: this is all automatically generated; I assume this is done by the
pdf-printer.

Is there a way to make it possible that the folder and/or filename of
the pdf can be chosen by the user?


I was thinking of using fHandleFile or acSysCmd, but I definitely
could use some hints to help me on the way somewhat more.


Best regards,
Sietske


***************************************************************************­***
My current code (with help of accarch131.zip on
http://www.helenfeddema.com/access.htm)
looks like this:


'Remember the standard printer
Set prt = Application.Printer
Debug.Print "Current default printer: " & prt.DeviceName


'Make the PDF-printer temporary the standard printer
Application.Printer = Printers("PDFCreator")


'Print the report to the PDF-printer
Dim strDocName As String
Dim strWhere As String
strDocName = "rptConsult"
strWhere = "[Id_Consult]=" & Me!Id_Consult
DoCmd.OpenReport strDocName, acViewNormal, , strWhere


'Make the original printer standard again
Application.Printer = prt


***************************************************************************­***
 
S

Sietske

Thanks for the hint, I will give it a try!

Please excuse me for the multiple message. I didn't realise that this forum
(which I visit from www.microsoft.com) was a newsgroup too. I will stick to
just one group in the future.

Allen Browne said:
Please don't post multiple message to different groups asking the same
question.

See:
Call Windows Browse for Folder Dialog box
at:
http://www.mvps.org/access/api/index.html

--
Allen Browne - Microsoft MVP. Perth, Western Australia

Reply to group, rather than allenbrowne at mvps dot org.

Sietske said:
Dear all,

My form contains a button to save a report to PDF. However, the future
user can not choose the folder the pdf is placed, nor the name of the
pdf: this is all automatically generated; I assume this is done by the
pdf-printer.

Is there a way to make it possible that the folder and/or filename of
the pdf can be chosen by the user?


I was thinking of using fHandleFile or acSysCmd, but I definitely
could use some hints to help me on the way somewhat more.


Best regards,
Sietske


***************************************************************************­***
My current code (with help of accarch131.zip on
http://www.helenfeddema.com/access.htm)
looks like this:


'Remember the standard printer
Set prt = Application.Printer
Debug.Print "Current default printer: " & prt.DeviceName


'Make the PDF-printer temporary the standard printer
Application.Printer = Printers("PDFCreator")


'Print the report to the PDF-printer
Dim strDocName As String
Dim strWhere As String
strDocName = "rptConsult"
strWhere = "[Id_Consult]=" & Me!Id_Consult
DoCmd.OpenReport strDocName, acViewNormal, , strWhere


'Make the original printer standard again
Application.Printer = prt
***************************************************************************­***
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Error when trying to print to pdf using pdf printer on network 2
Filter a function that runs a report as a pdf (RunReportAsPDF) 0
Report loop doesn't work 9
Save Report to PDF with a Custom Filename & Email.. 0
Printing Report to PDF 0
Print Access Report to PDF V6 or V7, using VBA - is this a secret? 2
fax a report to multiple people 0
Print Access Report as PDF with Acrobat 6 1

Top