How to make a Save File Dialog Box

[accesser2003]

I have a problem. This problem is that when I generate the report, I want to show a save file dialog box. How can I do this and and retrict the files show to only "*.pdf" files. I tried it as follow:

Private Sub SaveFile_Click()

Set FDialog = Application.FileDialog(msoFileDialogSaveAs)

With FDialog
.Filters.Add "Acrobat Files", "*.pdf" .Show
End With

End Sub

error is araised when executing .Filters.Add "Acrobat Files", "*.pdf": Object doesnt support property or method.

ALSO How can I pick the path the user selected?

Thanks

 

[vodafrog]

See the following thread

http://www.access-programmers.co.uk/forums/showthread.php?t=90363&highlight=common+dialog+api

You will need to put this code into a module and call it accordingly.