読者です 読者をやめる 読者になる 読者になる

管理人Kのひとりごと

デジモノレビューやプログラミングや写真など

Excel2003迄の印刷ダイアログを開く(Excel)

Excel2007あたりから、印刷ダイアログが変わり、特定シートのみの印刷や、ブック全体指定のショートカットキーが煩雑になりました。
そこで、ExcelVBAを使い、旧来の印刷ダイアログを出せるようにしたいと思います。
下記サブルーチンを「Ctrl-P」に割り当てれば、旧来の印刷ダイアログを呼び出せます。

Sub showOrgPrintDialog()
    ' arg12:=3 は、「ブック全体を印刷」の指定
 Application.Dialogs(xlDialogPrint).Show arg12:=3
End Sub

f:id:ksk1130:20170306215125p:plain