VBAによる用紙サイズ変更(PrtDevMode)

質問

お世話になります。
VBAで用紙サイズの変更方法をご教授願います。

現在、レポートにてラベルを作成しており、レポート1ページにラベルが3つ載ります。
レポートには切り取り線を付けており、その線に沿ってカットしている次第です。

当該レポートの作成当初は問題なかったのですが、最近プリンタのローラーの劣化なのか、上余白が多少広くなってきており、ラベル3枚のうち一番上のラベルについては若干大きくなってしまいます。
※カットする回数を減らしたいので用紙の上余白はカットしてません。上余白もふくめたラベルとなります。

レポートのページ設定で上余白が現状5.08なのですが、変更しても5.08になってしまうことから、恐らくプリンタの限界値？かと思われます。

調べたところ、用紙サイズを変更することにより、余白を狭くすることができる（用紙ギリギリのところまで文字を印刷できる）との情報がありました。
現状A4（210×297mm)です。上余白を1～2mmほど狭くしたいので、208×297mmで設定し印刷すれば上余白が2mm狭くなると思われるのですが。。

PrtDevModeの具体的な使い方をご教授頂けたらと思います。

宜しくお願い致します。

回答No.1

nicotinism · ベストアンサー

仮に設定を出来たとしても、無駄な努力になりそうに思います。
まず、手作業でプリンタの用紙サイズのユーザー設定を行って試してみることを強くお勧めします。

Access2002よりも前のバージョンではPrtDevModeで行うしか方法はありませんでしたが
2002からはPrinterオブジェクトが使えるようになりましたので随分と簡単になりました。
PrtDevModeの解説がのっているサイトは少ないと思います。

Printerオブジェクトの解説は
http://msdn.microsoft.com/ja-jp/library/cc325884.aspx

文中にあるODC_Acc10_Printers.exeは
http://msdn.microsoft.com/en-us/library/Aa139946(office.10).aspx
からダウンロードできます。
圧縮ファイルをダブルクリックすると解凍先を聞いてきます。
中身は、PrinterDemo.mdb です。

ローラーの劣化のためなのか紙の検出センサーにゴミが付いているだけなのか・・・不明ですが
プリンタのメンテナンスをしてもらうか、諦めるか・・も
あなたの費やす労力を考えて決めたらよろしいかと思います。
（メーカーごとに微妙に違う部分があって解説通りには行かない場合がありました）

お礼

返信が遅くなり申し訳ございません。
ご回答ありがとうございました。

とりあえず、全体のフォントや罫線等を小さ目にして体裁を整えることで、問題は解決致しました。
確かにここで事象が解消されたとしても、数か月後にまたズレてくるかと思いますので、その際は教えて頂いた方法で対処してみたいと思います。

ありがとうございました。