Excel - Visual Basic for Preview and Printing

Environment

• Microsoft Excel 2003 / 2007

Code

'Preivew
Private Sub previewPage(whichPage As String, printRange As String)
    Sheets(whichPage).Select
    Range(printRange).Select
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    Application.Dialogs(xlDialogPrintPreview).Show
    Sheets(whichPage).Activate
End Sub

'Printing
Private Sub printPage(whichPage As String, printRange As String)
    Sheets(whichPage).Select
    Range(printRange).Select
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    Application.Dialogs(xlDialogPrint).Show
    Sheets(whichPage).Activate
End Sub