こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Access[イベント プロシージャ]について質問です。

フォーム上にある『プリント』ボタンをクリックすると、レポートを印刷するようにしています。(以下のとおり)


Private Sub レポートの印刷_Click()
On Error GoTo Err_レポートの印刷_Click

Dim stDocName As String

stDocName = ChrW(12463) & ChrW(12524) & ChrW(12540) & ChrW(12512) & ChrW(20966) & ChrW(29702) & ChrW(31080)
DoCmd.OpenReport stDocName, acNormal

Exit_レポートの印刷_Click:
Exit Sub

Err_レポートの印刷_Click:
MsgBox Err.Description
Resume Exit_レポートの印刷_Click

End Sub


このプリントボタンをクリックした時に『印刷』というチェックボックスにチェックを入れるにはどのように書き換えればよいのでしょうか?

投稿日時 - 2006-05-14 01:42:47

QNo.2149810

すぐに回答ほしいです

質問者が選んだベストアンサー

On Error GoTo Err_レポートの印刷_Click
の直後あたりに
Me!印刷 = true
を入れればOKです。

投稿日時 - 2006-05-14 01:54:28

補足

ありがとうございます!
もうひとつ質問があったのが忘れていたのですが、
印刷が終わった時にチェックをはずす場合はどうすればよいのでしょうか?

Resume Exit_レポートの印刷_Click
の直後あたりに
Me!印刷 = false
と入れればいいのでしょうか?

投稿日時 - 2006-05-14 02:19:52

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

『印刷』というチェックボックスの用途にもよりますが、

DoCmd.OpenReport stDocName, acNormal
印刷.Value = True   '**** ここに挿入
Exit_レポートの印刷_Click:

でいいんじゃないでしょうか?これなら成功した時点でチェックが入ります。

投稿日時 - 2006-05-14 01:56:19

あなたにオススメの質問