マクロで印刷プレビューを表示する場合は、PrintPreviewメソッドを使用します。
以下のマクロは、アクティブシートの印刷プレビューを表示します。

Sub ShowPreview()

    ActiveSheet.PrintPreview
    
End Sub