下面代碼判斷報表是否已被打�。ú还芾硎穷A覽還是直接打�。�

This method of determining if a report has been printed works for both previewed and directly printed reports;
It requires setting up a global variable and either amending the print preview menu or creating your own custom menu.

1. 創(chuàng)建一個全局變量
Public intPrinted as Boolean

2. 在模塊中創(chuàng)建下面兩個函數

--------------------------------------------------------------------------------

Public Function PrintDialog()
On Error GoTo err_Proc
'Opens windows print dialog box
'If fails to print or cancelled then goes to error message and does not set intPrinted flag

     DoCmd.RunCommand acCmdPrint
     intPrinted = True

     'Enable following line if you want report to close immediately after printing
'     DoCmd.Close acReport, Screen.ActiveReport.Name   

exit_Proc:
    Exit Function

err_Proc:
    Resume exit_Proc
End Function

 

Public Function PrintReport(stDocName as String, stLinkCriteria as string, intPreview as Integer)
On Error GoTo err_proc

   'stDocName = Name of report
   'stLinkCriteria = filter criteria
   'intPreview = 0 print directly to printer _
                     = 2 print preview

    'Clear printed flag
    intPrinted = False

    'Open report
    DoCmd.OpenReport stDocName , intPreview, , stLinkCriteria  
    if intPreview = 0 then
        intPrinted = True
        Debug.Print "Printed Successfully"  
    End if

exit_proc:
    Exit Function

err_proc:
    Debug.Print "Print Failed"   
    Resume exit_procEnd Function

End Function

--------------------------------------------------------------------------------

 

3. 在打印預覽工具欄上創(chuàng)建新的打印按鈕
   或修改現有的打印按鈕
a. 將打印及打印預覽按鈕的 動作改為  '=PrintDialog()'

4. 在報表的關閉事件中 On_Close 添加如下代碼
--------------------------------------------------------------------------------

     If intPrinted = True Then
         'Run code for when report was printed successfully
     End If

--------------------------------------------------------------------------------

 

5. 在窗體上要打印或預覽報表時使用如下代碼
--------------------------------------------------------------------------------

    PrintReport "ReportName",  "Criteria", intPreview
    'Check if report was printed
    '- The following lines of code are only needed if the report is printed directly (ie not previewed)
    ' if the intpreview is always set to 2  then the following lines can be deleted
    If intPreview = 0 then
        If intPrinted = True then
            'Run code for when report was printed successfully
        Else
            'Run code for when report was just previewed OR the print failed
        End If
    End If

--------------------------------------------------------------------------------

intPreview = 0 to print directly
intPreview = 2 to preview the report

Edited as requested by Bernie

Edited by: VanThienDinh on Tue Jul 29 6:23:49 EDT 2008.

翻譯 ： tmtony