人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

【ExcelVBA】についての質問です。

環境: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

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

●質問者: pocon
●カテゴリ:コンピュータ
✍キーワード:A3 EXIT NeXT pc VBA
○ 状態 :キャンセル
└ 回答数 : 3/3件

▽最新の回答へ

1 ● きゃづみぃ

http://www.asahi-net.or.jp/~zn3y-ngi/YNxv211_PaperSize.html

A4でしたら xlPaperA4 となります。

xlPaperA4 が 定数で 値を持っています。

◎質問者からの返答

送り状など、定数に無い用紙サイズの名前を取得したいのです。


2 ● きゃづみぃ

http://www.accessclub.jp/bbs2/0120/beginter35787.html

DeviceCapabilities を宣言して 利用すればいいかと思います。

使い方は 上記サイトを参考にしてもらえればいいかな。

◎質問者からの返答

リンク先のページは知っていたのですが、どのようにすればいいか

わからずでした。

恐縮ですが、具体的にご教授戴けますでしょうか。


3 ● きゃづみぃ

http://support.microsoft.com/kb/229718/ja

こちらのソースが 参考になると思います。

◎質問者からの返答

Sub GetPaperList()を実行するとエラーになりますが、参照設定など

必要なのでしょうか?

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ