エクセルVBA(ダイアログ 表示) の続きですが、実際の所
ファイルを開く、名前を付けて保存 のダイアログもあまり使う事はないです。
他のファイルの情報が必要ならリンクの関数も簡単ですし
Workbooks.Open で必要なファイルを開く方が良いでしょう。
今回、奮闘に宛名を印刷するにあたって、以下の問題が起きます。
エクセル豆知識(ページ設定) で設定したシートに適当に住所など入れて印刷してみましょう。
手差しトレイに封筒の根本(開封していない方)を奥に入る様にセットすると
印刷された封筒が通常と逆さになります。
正しく印刷しようとすると、封筒の入れ口部分を一度、折り曲げて開封側を先に方向に
セットして印刷する事になります。
そこで
Sub ボタン4_Click()
a = Application.Dialogs(xlDialogPrint).Show
If a = False Then
MsgBox "Cancelされた"
End If
End Sub
を実行してみましょう。
印刷のダイアログが表示されて、プリンターを選択、プロパティをクリックする事っで
プリンターのプロパティが表示されるので、印刷の向きを 180°回転にチェックをいれて
OKします。
これで、新しい封筒を閉じている側を奥に沢山セットして、印刷しても逆さにならなくなります。
それもも、『手間!!』 と云われても、VBAで、給紙トレイを設定できないように
180°回転 にチェックする事は出来ない様です。
通常のA4用紙やはがきは、プリンターにセットする際に向きは自由ですが
封筒だけは、開封の側があるので、どうしても
1、手で入れ口を折っておく
2、プリンターのプロパティで180°回転にチェックを入れる。
いずれかの手間が発生してしまいます。
私の能力不足かもしれません、他に方法をご存知の方おられましたら、教えてください。
Application.Dialogs(xlDialogPrint).Showもはやり、OK と キャンセル ボタンがありますので
If a = False Then とキャンセルボタンを押された時の処理も考えておきましょう。