🚀 go-pugleaf

Raport zapisuję do pdf mniej więcej tak:
==========================================================================================
Sub ZapiszPDF

   Dim fdialog As Office.FileDialog                    ' Requires reference 
to Microsoft Office 11.0 Object Library.
   Dim OutFilePath as string
   Dim OutFileName As Variant

   OutFilePath = "D:\.......\RAPORTY"                    ' domyślna ścieżka 
dla moich raportów

   Set fdialog = Application.FileDialog(msoFileDialogSaveAs)

   With fdialog
      .InitialFileName = OutFilePath
      .ButtonName = "Zapisz jako"
      .AllowMultiSelect = False
      .Title = "Zapisz raport do pliku"
      If .Show = True Then
         OutFileName = .SelectedItems.Item(1) & ".pdf"
      Else
         Exit Sub
      End If
   End With

  DoCmd.OutputTo acOutputReport, RptName, acFormatPDF, OutFileName

End Sub
============================================================================================

Zamiast tej procedury chcę wykorzystać ze wstążki Accessa polecenie: "PDF 
lub XPS", pojawiające się gdy mam już raport w podglądzie wydruku.
To polecenie otwiera "file dialog",  ale inny niż ten z przykładu.

Problem polega na tym, że nie potrafię wymusić domyślnej ścieżki przy 
otwarciu tego "file dialogu", czyli tego co w przykładzie robi

        fdialog.InitialFileName = OutFilePath

Czy ktoś sobie z tym poradził?

MK