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
--
isabelle