SHARE
TWEET

Untitled

a guest Nov 20th, 2012 80 Never
  1.     With ActiveSheet.PageSetup
  2.         .PrintTitleRows = ""
  3.         .PrintTitleColumns = ""
  4.         .LeftHeader = ""
  5.         .CenterHeader = ""
  6.         .RightHeader = ""
  7.         .LeftFooter = ""
  8.         .CenterFooter = ""
  9.         .RightFooter = ""
  10.         .LeftMargin = Application.InchesToPoints(0.7)
  11.         .RightMargin = Application.InchesToPoints(0.7)
  12.         .TopMargin = Application.InchesToPoints(0.75)
  13.         .BottomMargin = Application.InchesToPoints(0.75)
  14.         .HeaderMargin = Application.InchesToPoints(0.3)
  15.         .FooterMargin = Application.InchesToPoints(0.3)
  16.         .PrintHeadings = False
  17.         .PrintGridlines = False
  18.         .PrintComments = xlPrintNoComments
  19.         .PrintQuality = 600
  20.         .CenterHorizontally = False
  21.         .CenterVertically = False
  22.         .Orientation = xlPortrait
  23.         .Draft = False
  24.         .PaperSize = xlPaperLetter
  25.         .FirstPageNumber = xlAutomatic
  26.         .Order = xlDownThenOver
  27.         .BlackAndWhite = False
  28.         .Zoom = 100
  29.         .PrintErrors = xlPrintErrorsDisplayed
  30.         .OddAndEvenPagesHeaderFooter = False
  31.         .DifferentFirstPageHeaderFooter = False
  32.         .ScaleWithDocHeaderFooter = True
  33.         .AlignMarginsHeaderFooter = True
  34.         .EvenPage.LeftHeader.Text = ""
  35.         .EvenPage.CenterHeader.Text = ""
  36.         .EvenPage.RightHeader.Text = ""
  37.         .EvenPage.LeftFooter.Text = ""
  38.         .EvenPage.CenterFooter.Text = ""
  39.         .EvenPage.RightFooter.Text = ""
  40.         .FirstPage.LeftHeader.Text = ""
  41.         .FirstPage.CenterHeader.Text = ""
  42.         .FirstPage.RightHeader.Text = ""
  43.         .FirstPage.LeftFooter.Text = ""
  44.         .FirstPage.CenterFooter.Text = ""
  45.         .FirstPage.RightFooter.Text = ""
  46.     End With
RAW Paste Data
Top