Excel VisualBasic Script

Sub pre()
    ActiveWorkbook.WebPagePreview
End Sub