スキルアップ・問題解決なら、モーグにおまかせ！

Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"　で開いた画面では、
印刷ページの設定などの他に「片面・両面印刷」、「すべての行（列）を１ページに印刷」
を画面を見ながら設定できるので、重宝しています。
しかし、Application.Dialogs(xlDialogPrint).Show Arg1:=2, Arg2:=1, Arg3:=2　のように
画面が表示されたとき、印刷ページ、部数などをあらかじめ設定することができません。
何か、設定するコマンドはないのでしようか？

残念ながらできません。
下記を参照してください。
https://learn.microsoft.com/ja-jp/office/vba/api/office.commandbars.executemso

simpleさん回答ありがとうございます。
 
＞残念ながらできません。
＞下記を参照してください。
 
うーん。やはり駄目でしたか。
従来通り、印刷頁など、手作業で行います。