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

回答受付中の質問

アクセス 印刷ダイアログで印刷した場合の処理

アクセス初心者と毎回言ってるものです。

VBAにて検索フォームを作っています。
印刷したら、もしくはエラーが出た場合にフォームやレポートをすべて閉じて
最初の検索フォームだけ表示しています。

ですが、印刷ダイアログを出せるようにしてみたら、そこから印刷した場合の処理方法が見当つきません。

ご教授よろしくお願いいたします。

ダイアログを出すボタンを押したときの処理のコードを表記します。

Private Sub コマンド0_Click()

On Error GoTo print_err
'レポート参照用
Dim myReport As Report
'レポート名変数
Dim report_name As String

'開いているレポートを1つずつ参照する
For Each myReport In Reports
'レポート名を取得
report_name = myReport.Name
Next


DoCmd.SelectObject acReport, report_name

DoCmd.RunCommand acCmdPrint

Exit Sub

print_err:

MsgBox "エラーです" & vbCr & "初めからやり直してください。"
DoCmd.Close acForm, "印刷_フォーム", acSaveNo

End Sub

' DoCmd.Close acReport, report_name, acSaveNo
'この辺の文章を通常処理に入れたい

投稿日時 - 2017-02-10 19:59:45

QNo.9292318

困ってます

回答(0)

この質問にはまだ回答がついていません。
あなたが最初に回答してみませんか?