Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Nov 20th, 2012  |  syntax: VB.NET  |  size: 1.72 KB  |  views: 43  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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