印刷のプロパティーを呼ぶＶＢＡ

質問

エクセルのシート上に、印刷ボタンを配置して印刷させる仕組みを作ってます。

問題が、印刷のボタンを押すと、そのまま印刷実行してしまい設定が出来ません。

そこで、印刷設定ボタンを配置して、印刷設定ボタンを押すと印刷のプロパティ画面が出てくるようにしたのですが、よろしくお願いします。

回答No.2

nishi6 · ベストアンサー

こんな感じでダイアログは呼び出せますが、こういうこと？
印刷書式は事前に決めておくのがいいような気がしますが。
それから、何も作らないでプレビューから設定でもできます。
Sub PageSetupShow()
Dim mySel As Boolean
mySel = Application.Dialogs(xlDialogPageSetup).Show
If mySel = False Then
MsgBox "ページ設定はキャンセルされました"
Else
MsgBox "ページ設定完了！"
End If
End Sub

お礼

Ｇｏｏｄ！Ｇｏｏｄ！Ｇｏｏｄ！
でも、残念なことに、ページ設定が出てきました。でも書き換えてうまくいきました！印刷をさせるボタンがあるんですが、その前に、プリンターを選んだり、用紙をセットするトレイを選択しないといけなくって、それで質問しました。ありがとうございました。

回答No.3

takao_kw

おはようございます。
Application.Dialogs(xlDialogPrint).Show
↑という風にモジュールを組めば出てきますよ。

ちなみに、プレビューの表示は、
ActiveSheet.PrintPreview
↑で表示されます。

こういう意味じゃありませんか？

お礼

ありがとうございました。まだまだ初心者なもので・・・

回答No.1

comv

こんばんは

＞印刷設定ボタンを配置して、印刷設定ボタンを押すと
＞印刷のプロパティ画面が出てくるようにしたのですが

少々、内容が分からないのですが
どんな動きをお望みなのでしょうか？
ＢＶＡで設定した印刷関連のプロパティを一覧で表示させ
て確認や手動で設定させる？・・・・！
これだとダイヤログコレクションを呼び出すのと変わらないような・・・

単純に　印刷のダイヤログを呼び出すのであれば
配置した印刷設定ボタン　コード表示　Click　に
Application.Dialogs(xlDialogPrint).Show
でよろしいかと・・・

（外しているような気がします・・・）
意図したことと違うようであればスミマセン！

お礼

ありがとうございました。これでいいのです？？？