vb操作excel 打印

Sub Macro1()
       With ActiveSheet.PageSetup            ' This is the first part.
           .PrintTitleRows = ""
           .PrintTitleColumns = ""
       End With
       ActiveSheet.PageSetup.PrintArea = ""  ' This is the second part.
       With ActiveSheet.PageSetup            ' This is the third part.
           .LeftHeader = ""
           .CenterHeader = ""
           .RightHeader = ""
           .LeftFooter = ""
           .CenterFooter = ""
           .RightFooter = ""
           .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
       End With
   End Sub
				
果只想更改  PrintTitleRows 、  PrintArea  和  方向 , 可能使用下面：

   Sub Macro1()
       With ActiveSheet.PageSetup
           .PrintTitleRows = "$1:$3"
           .PrintArea = "$A$4:$C$100"
           .Orientation = xlLandscape
       End With
   End Sub