isabelle presented the following explanation :
i can not verify this, if you will do the test


Dim fd As FileDialog, ffs As FileDialogFilters
Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
Set ffs = .Filters("PDF Files (*.pdf), *.pdf")
End With


anotherway with Common Dialog Control
http://access.mvps.org/access/api/ap...pi/api0001.htm

Common Dialog Control is no longer supported/provided as of Win 6.x and
so would have to be shipped and registered to all machines using the
project if the ocx was not present. I'd stick with using
Application.FileDialog()!

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc