プリンターのプロパティの設定画面　vba

Sub test() ActiveSheet.PrintPreview End Sub このコードで印刷プレビューにできるのですが CTRL+Pを押したのと同じような プレビュー画面を表示することは可能ですか？ ActiveSheet.PrintPreview このコードだと、 プリンターのプロパティの設定画面がでないので 手動で行った時と同様、 プリンターのプロパティがでるＶＢＡコードが知りたいです。