印刷したの？実際？

勝手に印刷されるのではなくて、プレビューにして内容を確認してから自分で好きに印刷したい、とお客さんが言うので、そうすることになりました。
印刷したかどうかをデータに持っているので（←同じデータを何度も印刷してしまうのを防ぐため）、プレビューにしてしまうとそれが取れないのではないかと思ったのですが。
いやー、浅はかでした。
実際に印刷したか（あ、この「印刷した」は「紙として正しく出力された」ではなくて、「印刷指示を出した」ということです）は取得できるようです。
インターネットってすごいですね。（今さら。）

こんな感じです。
適当なモジュールに以下を記述。

Declare Function apiIsWindowEnabled Lib "user32" _
Alias "IsWindowEnabled" (ByVal hWnd As Long) As Long
Public Function gIsPrinted(rpt As Report) As Boolean
Dim blnRtn  As Boolean
blnRtn = False
If apiIsWindowEnabled(rpt.hWnd) = 0 Then
blnRtn = True
End If
gIsPrinted = blnRtn
End Function

さらに適当なモジュールに以下を記述。

Private Dim mblnIsPrinted	As Boolean
Public Sub gSetIsPrinted(byval blnIsPrinted As Boolean)
If blnIsPrinted = True Then
mblnIsPrinted = True
End If
End Sub
Public Sub gClearIsPrinted()
mblnIsPrinted = False
End Sub
Public Function gGetIsPrinted() As Boolean
gGetIsPrinted = mblnIsPrinted
End Sub

レポートのレポートヘッダのフォーマット時イベントを以下のように記述。

Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
' 印刷したか否かをセット
Call gSetIsPrinted(gIsPrinted(Me))
End Sub

印刷部分。（一度に一つのレポートしか印刷しないという前提です。）
印刷したらTrueが、印刷しなかったらFalseが返されます。

Public Function gPrintReport(ByVal strReportName As String) As Boolean
Dim blnRtn	As Boolean
blnRtn = False
' 印刷状態を初期化
Call gClearPrintInfo_IsPrinted
' プレビューで開く
Call DoCmd.OpenReport(strReportName, acViewPreview)
' 開かれているレポートがなくなるまで待ち
Do Until Reports.Count <= 0
Call Application.Echo(True)
DoEvents
Loop
' 印刷したかどうかを取得
If gGetPrintInfo_IsPrinted() = True Then
blnRtn = True
End If
PrintReport = blnRtn
End Function

追記（2007/6/14）
「開かれているレポートがなくなるまで待ち」の部分、SysCmdメソッドの第一引き数にacSysCmdGetObjectStateを指定すると、オブジェクトが開いてるかどうか分かるっぽいので、それを利用して閉じるまで待つ処理が作れます。そっちの方がスマートですね。（というか、元のがひどいよ。）
ここがそのものずばりです。