ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10"ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Range("A4:D14").ClearContents