エクセルVBAで複数のシートを印刷する場合の選択トレーを統一したい

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2015年2月6日(金)08時20分
From: みなお

返事削除変更

無理にVBA操作しなくても手動で全てのシートを洗濯してから印刷設定で設定できませんか？

もしくは、荒業ですが、WIndwosのコンパネからトレーを選択したプリンタ自体を追加しといて、印刷する際にそのプリンタを使うとかすれば強制的に全てのシートで同じ選択トレーで印刷されるかと思います。

Message#1 2015年2月6日(金)07時53分
From: ぽの

返事削除変更

エクセルVBAで複数のシートを印刷する場合の選択トレーを統一したいと考えています。
どういうことかというと私はいつも以下のVBAコードで印刷ダイアログボックスを表示させ、プリンタのトレー選択をしてから印刷しています。

Sub print()
Dim ws(1 To 3) As String
Application.ScreenUpdating = False
ws(1) = Worksheets("Sheet1").Name
ws(2) = Worksheets("Sheet2").Name
ws(3) = Worksheets("Sheet3").Name

Worksheets(ws).Select
Application.Dialogs(xlDialogPrint).Show Arg12:=2 'Arg12:=印刷対象選択したシート
Application.ScreenUpdating = True

End Sub

1枚目のシートは設定したトレーを選択して印刷されるのですが、残りのシートでは選択したトレーではなく、初期値？のトレーで印刷されてしまいます。

複数のシートを一括で印刷する場合、選択トレーを全て同じものにしたいと考えているのですが、そのようなことは可能でしょうか？

色々試してみたのですが、なかなかうまくいかず・・