エクセル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枚目のシートは設定したトレーを選択して印刷されるのですが、残りのシートでは選択したトレーではなく、初期値？のトレーで印刷されてしまいます。 複数のシートを一括で印刷する場合、選択トレーを全て同じものにしたいと考えているのですが、そのようなことは可能でしょうか？ 色々試してみたのですが、なかなかうまくいかず・・ |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
