【Access】レポートのプレビューと印刷
- カテゴリ：パソコン/インターネット
- 2011/08/02 04:55:08
Private Sub コマンド30_Click()
'Rdetail_completion_status(レポートフォーム)をプレビュー表示
DoCmd.OpenReport "Rdetail_completion_status", acViewPreview
Dim msg As Integer
msg = MsgBox("プレビュー結果を印刷しますか？", vbYesNo, "印刷確認")
If msg = vbYes Then
GoTo line1
Else: GoTo line2
line1:
'Rdetail_completion_status(レポートフォーム)を印刷
DoCmd.OpenReport "Rdetail_completion_status", acViewNormal
line2:
End If
End Sub
------------------------------------------
レポートフォームのプレビュー表示と印刷
