Access コマンドボタンからの印刷
Access2003を使用し、フォームにコマンドボタンを追加して、そのボタンからレポートの印刷を行なおうとしています。
印刷ダイアログボックスを表示し、直前で印刷のキャンセルもできるようにと下記のように記述しました。
Private Sub 印刷1_Click()
On Error GoTo Err_印刷1_Click
'[印刷]ダイアログボックスを表示した後、印刷
DoCmd.SelectObject acReport, "レポート1", True
DoCmd.RunCommand acCmdPrint
DoCmd.OpenReport "レポート1", acViewNormal
'正常終了処理
Exit_印刷1_Click:
Exit Sub
'エラー発生時
Err_印刷1_Click:
Select Case Err.Number
Case 2501
Exit Sub
Case Else
End Select
End Sub
しかし、これを実行し、印刷すると、なぜか2部印刷されます。
どうやら2回処理が実行されているようです。
また、試しに印刷ダイアログボックスで通常使用しないプリンタを選択してみたら、選択したプリンタから1部、通常使用のプリンタから1部出力されてしまいました。
初心者なもので原因がわからず困惑しております。
どなたか解決方法のご教授お願い致します。
補足
早速の回答ありがとうございます レポートではなくフォームになります。 通常使うプリンターの設定を確認するのはどうすればいいのでしょうか? すいません、わからないことばかりで。。涙 他のものは印刷を押すとそういう画面がでてこないので こまっています