環境:WinXPpro Excel2010
コントロールパネル→プリンタのファイルメニューからサーバのプロパティで設定する用紙サイズをVBAから指定したく考えております。
A3などは
ActiveSheet.PageSetup.PaperSize = 8
とすることでサイズ指定可能なのですが、同ダイアログにて新しく追加したサイズについてはその番号がPCによって異なる為、番号から用紙名を取得する関数をご教授いただければありがたいです。
ちなみに追加した用紙は社内PCで調べたところ、190から197迄で使用しており
以下のようなコードを想定しております。
For i = 190 to 197
If プリンタ名を取得する関数(i) Like "追加した用紙名" Then
ActiveSheet.PageSetup.PaperSize = i
Exit For
End If
Next i
よろしくお願いいたします。
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv211_PaperSize.html
A4でしたら xlPaperA4 となります。
xlPaperA4 が 定数で 値を持っています。
http://www.accessclub.jp/bbs2/0120/beginter35787.html
DeviceCapabilities を宣言して 利用すればいいかと思います。
使い方は 上記サイトを参考にしてもらえればいいかな。
リンク先のページは知っていたのですが、どのようにすればいいか
わからずでした。
恐縮ですが、具体的にご教授戴けますでしょうか。
http://support.microsoft.com/kb/229718/ja
こちらのソースが 参考になると思います。
Sub GetPaperList()を実行するとエラーになりますが、参照設定など
必要なのでしょうか?
送り状など、定数に無い用紙サイズの名前を取得したいのです。