Choose filename and folder when saving report to PDF

Dear all,


My form contains a button to save a report to PDF. However, the future
user can not choose the place 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 place and/or the name 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

************************************************************ ******************

Re: Choose filename and folder when saving report to PDF

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

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Sietske" wrote in message
news:a5119a47-0b1c-466c-a752-42c8db73960f@y5g2000hsf.googleg roups.com...
> Dear all,
>
>
> My form contains a button to save a report to PDF. However, the future
> user can not choose the place 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 place and/or the name 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
>
> ************************************************************ ******************