'   ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----   
'   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.
'   ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- ----- -----   

Sub NicePrintPage_Resource()
' Standard format of printout page - looks nice and clean
' Used with Resource views
' 12/11/2005 jpm 
   
   Dim sText As String
   
   ' Landscape gives a bit of room for the gantt chart.
   ' Should keep to 100% (no scaling) unless you add too many columns
   ' 11x17 (tabloid) size is nice cuz you can fold it in half to 8.5x11
   
   FilePageSetupPage Portrait:=False, PercentScale:=100, PaperSize:=pjPaperTabloid
   
   ' Standard header / footer text
   
   sText = "&" & Chr(34) & "Arial" & Chr(34) ' font
   FilePageSetupHeader Alignment:=pjLeft, Text:=sText & "&08Project: &10&B&[Project Title]&B" & Chr(10) & "&08View:    &09&[View]"
   FilePageSetupHeader Alignment:=pjCenter, Text:=" "
   sText = "&" & Chr(34) & "Arial" & Chr(34) ' font
   sText = sText & "&08"                     ' size
   FilePageSetupHeader Alignment:=pjRight, Text:=sText & "Last Update: &[Saved Date]"
   FilePageSetupFooter Text:=""
   FilePageSetupFooter Alignment:=pjLeft, Text:="&[File Name and Path]" & Chr(10) & "Proprietary and Confidential, My Copmpany Name"
   FilePageSetupFooter Alignment:=pjCenter, Text:=" "
   FilePageSetupFooter Alignment:=pjRight, Text:=sText & "Page &[Page] of &[Pages]"
   
   ' Nice margins to max out paper use
   ' who needs a legend?
   
   FilePageSetupMargins Top:=0.3, Right:=0.3, Bottom:=0.3, Left:=0.3
   
   ' Leave 'em at the Preview
  
   FilePrintPreview
   
End Sub