Question

以下代码仅在Record上打印并保存一个项目，如何将其打印并一次保存所有项目？

Private Sub PrintProject_DblClick(Cancel As Integer)
      Dim MyPath As String
      Dim MyFileName As String
      Dim MyProjectNumber As String
      Dim MyProjectName As String

      MyPath = "C:\Reports\"

      MyProjectNumber = Me!ProjectNumber
      MyProjectName = Me!ProjectName
      MyFileName = MyProjectNumber & " " & MyProjectName & ".PDF"
      With DoCmd
      .OpenReport _
      ReportName:="Total Report", _
      View:=acViewPreview, _
      WhereCondition:="ProjectNumber = " &  & MyProjectNumber &  Chr(34)
      .OutputTo _
      ObjectType:=acOutputReport, _
      OutputFormat:=acFormatPDF, _
      ObjectName:="Total Report", _
      Outputfile:=MyPath & MyFileName

      .Close acReport, "Total Report"
     End With

     End Sub

Answer 1

我找到了解决方案，简单

       DoCmd.OpenReport "Total Report", acViewPreview, , _ 
      "ProjectNumber='" & !ProjectNumber & "'" _
       DoCmd.OutputTo acOutputReport, "Total Report", _
       acFormatPDF, MyPath & MyFileName _
       DoCmd.Close acReport, "Total Report"

尝试打印并保存单独文件中的所有记录

1 个答案: