レポートをpdfに保存

Question

次のコードはレポートのbutton_clickに添付されています。ユーザーが選択した名前でレポートを保存します。

Dim fd As FileDialog 
Set fd = Application.FileDialog(msoFileDialogSaveAs) 
fd.Show 

実行すると、名前を付けて保存ダイアログボックスが表示されますが、ファイルは保存されません。私は一歩足りませんか？

Answer 1

あなたは次の、はず、輸出pdfへのレポート。最後のパラメータ真は、エクスポート後にPDFを開くことです

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

：と行fd.Showを交換してください。必要がない場合は削除してください。
注：fd.SelectedItems（1）は、ユーザーが選択したファイルです。

Answer 2

あなたはまた、notCancel呼ばれるブール値を暗く.SHOWにそれが等しくなるように設定して、Ifステートメントを使用して、.Executeを使用する必要があり、次のコードはこれを示しています

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