Print Dialogue Box

This Code shows the print Dialogue box in excel. Sub Prt Dim bResponse As Boolean bResponse = Application.Dialogs(xlDialogPrint).Show 'Or the one below to set the printer properties 'bResponse = Application.Dialogs(xlDialogPrinterSetup).Show If bResponse = False Then MsgBox "Print Cancelled" End If End Sub

Code Snippits