Bir raporu pdf'ye kaydedin

Question

Aşağıdaki kod bir raporda button_click dosyasına eklenir. Raporu kullanıcı tarafından seçilen bir isimle kaydetmek istiyorum.

Çalıştırıldığında, farklı kaydet iletişim kutusu açılır, ancak dosyayı kaydetmez. Bir adımı kaçırıyor muyum?

Sub SaveFile() 
    Dim fd As FileDialog 
    Dim notCancel As Boolean 
    Set fd = Application.FileDialog(msoFileDialogSaveAs) 
    With fd 
     notCancel = .Show 
     If notCancel Then 
      .Execute 
     End If 
    End With 
End Sub 

Answer 1

You should sonraki, İhracat:

Answer 2

Ayrıca eşit .Show ayarlı ve sonra .Execute kullanın bir If deyimi kullanarak, notCancel denilen bir boolean kararmalıdır, aşağıdaki kod bu gösteriyor rapor pdf. çizgiyi fd.Show değiştirin:

If fd.Show then 
    DoCmd.OutputTo acOutputReport, "ReportNameHere", "PDF Format (*.pdf)", fd.SelectedItems(1), True 
End IF 

son Parametre Gerçek sonra ihraç pdf açmaktır. Gerekmiyorsa lütfen kaldırın.
NOT: fd.SelectedItems (1), kullanıcının seçtiği dosyadır.