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

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

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

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