用紙サイズ゛を取得するには？ (ID:76151)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 プリンタオブジェクトを使用します。たとえば、 Dim myPrinter As Printer For Each myPrinter In Printers If myPrinter.Orientation = vbPRORPortrait Then Set Printer = myPrinter Exit For End If Next で通常使用するプリンタを取得した後、 myPrinter.PaperSize で取得できます。 PaperSizeの値は、 定数 値 内容 VbPRPSA3 8 A3、297 x 420 mm VbPRPSA4 9 A4、210 x 297 mm VbPRPSA4Small 10 A4 Small、210 x 297 mm VbPRPSA5 11 A5、148 x 210 mm VbPRPSB4 12 B4、250 x 354 mm VbPRPSB5 13 B5、182 x 257 mm とかです。詳細はNSDNライブラリでPaperSizeを検索してみてください。