'   ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----   
'   Copyright (c) 2005-2006 James P. MacLennan   All Rights Reserved
'   Questions? Comments? Suggestions? Let me know ... www.cazh1.com
   
'   This program is free software; you can redistribute it and/or modify
'   it under the terms of the GNU General Public License as published by
'   the Free Software Foundation; either version 2 of the License, or
'   (at your option) any later version.
'
'   This program is distributed in the hope that it will be useful,
'   but WITHOUT ANY WARRANTY; without even the implied warranty of
'   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'   GNU General Public License for more details.
'   ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----   

Option Explicit

Sub NicePrintPage_Excel()
'
' I always like my print output pages formatted with a nice clean look feel, and standardized
' page header / footer. This routine is evolving to nicely put into a single place all of my fav formats
'

Dim i As Long

   Application.ScreenUpdating = False
    
   With ActiveSheet.PageSetup
      .PrintTitleRows = ""
      .PrintTitleColumns = ""
   End With
   ActiveSheet.PageSetup.PrintArea = ""
   With ActiveSheet.PageSetup
      .LeftHeader = ""
'      .LeftHeader = "&8This Is The Page/Report Title"   ' Note the &8 - sets font and pitch
      .CenterHeader = ""
      .RightHeader = "&8Printed on &D at &T"
      .LeftFooter = "&8Proprietary and Confidential" & Chr(10) & "My Company Name"
                                                         ' Get in the habit of marking all your work papers like this
      .CenterFooter = "&8&F"
      .RightFooter = "&8Page &P of &N"
      .LeftMargin = Application.InchesToPoints(0.75)
      .RightMargin = Application.InchesToPoints(0.75)
      .TopMargin = Application.InchesToPoints(1)
      .BottomMargin = Application.InchesToPoints(1)
      .HeaderMargin = Application.InchesToPoints(0.5)
      .FooterMargin = Application.InchesToPoints(0.5)
      .PrintHeadings = False
      .PrintGridlines = False
      .PrintComments = xlPrintNoComments
      .CenterHorizontally = False
      .CenterVertically = False
      .Orientation = xlPortrait
      .Draft = False
      .PaperSize = xlPaperLetter
      .FirstPageNumber = xlAutomatic
      .Order = xlDownThenOver
      .BlackAndWhite = False
      .Zoom = 100
      .PrintErrors = xlPrintErrorsDisplayed
   End With
   
   Application.ScreenUpdating = False
   DoEvents
   
End Sub