VBA之EXCEL打印

‘活动工作表打印

Sub Print()

       ActiveSheet.PrintOut

End Sub

 

‘设置页面

Sub PrintSh()

       With WorkSheets(“Sheet1”)

       ‘设置打印方向

              .PageSetup.Orienttation=xlLandscape

       End With

End Sub

 

‘设置第一张工作表的所有页边距

Sub SetPage()

       With Worksheets(1).PageSetup

              .LeftMargin=Application.InchesToPoints(0.5)

              .RightMargin=Application.InchesToPoints(0.75)

              .TopMargin= Application.InchesToPoints(1.5)

.BottomMargin= Application.InchesToPoints(1)

.HeaderMargin= Application.InchesToPoints(0.5)

.FooterMargin= Application.InchesToPoints(0.5)

       End With

End Sub

 

‘页眉折行打印

Sub Printer()

       ActiveSheet.PageSetup.CenterHeader=”&””Arial,Bold Italic””&14 期末成绩表” _

              & Chr(13) & Sheets(2).Range(“A1”)

       ‘打印预览

       ActiveWindow.SelectedSheets.PrintPreview

ActiveWindow.SelectedSheets.PrintOut Copies:=1   ‘打印一份文件

End Sub

 

‘为工作簿中每个工作表进行设置，设置打印为1-3行

Sub Top3LinesPrint()

       Dim wkSheet as WorkSheet

       For Each wkSheet In Application.Worksheets

              With wkSheet.PageSetup

                     .PrintTitleRows=”$1:$3”

              End With

              Sheets(wkSheet.Name).Rows(“1:3”).Font.Bold=True

       Next wkSheet

End Sub

 

‘设置工作表标签颜色

ActiveSheet.Tab.ColorIndex=6