アクティブプリンタを変更（ActivePrinter プロパティ）
ActivePrinter プロパティ
ActivePrinter プロパティを使用して現在のアクティブプリンタを取得したり、別のプリンタに切り替えたりすることができます。文字列型（String）の値を使用します。
「アクティブプリンタ」とは、「通常使うプリンタ」のことです。印刷する時だけ他のプリンタを使う場合は、PrintOut メソッド の引数 activeprinter に、そのプリンタ名を指定します。（詳細は、印刷・印刷プレビュー（PrintOut メソッド、PrintPreview メソッド） を参照してください。）
＜取得＞
object.ActivePrinter
＜設定＞
object.ActivePrinter = string
引数・戻り値
- object ・・・ 対象となる Application オブジェクト を指定します。
- string ・・・ アクティブプリンタ（通常使うプリンタ）に設定したいプリンタの名前を指定します。文字列型（String）で、[プリンタ名] on [ポート名]: の形式で記述します。
ActivePrinter プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 |
Sub Sample_ActivePrinter() '現在のアクティブプリンタ（通常使うプリンタ）を表示 MsgBox Application.ActivePrinter End Sub |
実行結果
関連記事
-
-
ワークシートにクリップボードの内容を貼り付ける（Paste メソッド）
Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …
-
-
印刷の用紙サイズを設定（PageSetup.PaperSize プロパティ）
PageSetup.PaperSize プロパティ PageSetup.Pape …
-
-
ワークシートの数を数える（Count プロパティ）
Count プロパティ 指定したWorksheets コレクションやSheets …
-
-
ブックの表示・非表示（Visible プロパティ）
ブック表示・非表示（Visible プロパティ） ブック（ウィンドウ）が表示され …
-
-
ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）
PageSetup.FitToPagesTall プロパティ PageSetup …
-
-
シートが保護されているか確認（ProtectContents プロパティ）
ProtectContents プロパティ ワークシートが保護されているかどうか …
-
-
印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）
印刷の総ページ数を取得（ExecuteExcel4Macro メソッド） Exc …
-
-
ユーザー設定のビュー（CustomView オブジェクト）
ユーザー設定のビュー CustomView オブジェクトは、登録されている各ビュ …
-
-
印刷設定（フッターに画像を指定）LeftFooterPicture,CenterFooterPicture,RightFooterPicture
フッターに画像を表示するには LeftFooterPicture プロパティ、C …
-
-
Excel を全画面表示（DisplayFullScreen プロパティ）
DisplayFullScreen プロパティ DisplayFullScree …