【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
よろしくお願いいたします。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
みんなの回答
-
きゃづみぃ
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv211_PaperSize.html
A4でしたら xlPaperA4 となります。
xlPaperA4 が 定数で 値を持っています。
-
pocon
-
- その他の回答を読む
poconこの質問へのコメント
質問の情報
- 登録日時
- 2011-05-30 21:12:52
- 終了日時
- 2011-05-31 12:49:54
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者1
-
内定してほしいポケモンはいますか？匿名質問者
ステップ実行させて エラーとなった箇所を 特定したらいいですね。
必要としているのは、アクティブなプリンタが対応する用紙の一覧では無く
セットした用紙サイズ名です。