Accessのレポートのページ設定で、その他のプリンタをVBAで変更したい

Question

Anonymous

Accessのレポートのページ設定で、「その他のプリンタ」をVBAで変更する方法がわかりません。

通常使うプリンタではなく、その他のプリンタの設定を変更したいです。

ご教授いただけると幸いです。

よろしくお願い致します。

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

質問作成者が受け入れた回答

Anonymous

レポートのプロパティは、開いた後では変更できません。

デザインビューで開いて、変更してください。

Const rptName = "レポート名"

`Dim rpt As Report

DoCmd.OpenReport rptName, acViewDesign 'デザインビューで開く

Set rpt = Reports(rptName) 'レポートオブジェクトを取得

rpt.PrtDevNames = Application.Printers("プリンタ名") 'プリンターの設定

DoCmd.OpenReport rptName, acViewPreview 'プレビューで開く

`

0 件のコメント

質問作成者が受け入れた回答

Anonymous

プリンターオブジェクトを使って設定を変更できます。

0 件のコメント

2 件の追加の回答

Answer 1

Anonymous

返信ありがとうございます。

レポートを開いた時ではなく、フォーム上にコードを記述したら、無事に動きました。

丁寧な解説、ありがとうございました。

0 件のコメント

Answer 2

返信ありがとうございます。

リンク先の下記コードを参考にして、Load イベント時に記述しましたが、プリンタの設定のところでエラーになります。

「実行時エラー5　プロシージャの呼び出し、または引数が不正です」

どこのイベントに設定すれば、よろしいでしょうか。

ご教授いただけると幸いです。よろしくお願い致します。

---------記述コード----------

Set Rpt = Reports("レポート名") ' レポートオブジェクトを取得

With Rpt

MsgBox .Printer.DeviceName '変更前のプリンタ名

Set .Printer = Application.Printers("プリンタ名") 'プリンタの設定

MsgBox .Printer.DeviceName '変更後のプリンタ名

End With