VBA/Excel/Access/Word/Excel/Worksheet Print Setting

Материал из VB Эксперт
Перейти к: навигация, поиск

puts the filename in the right footer

   <source lang="vb">

    Private Sub Workbook_BeforePrint(Cancel As Boolean)
          Dim myWorksheet As Worksheet
          Dim sFileName As String
          Dim sCompanyName As String
          sCompanyName = Worksheets("Profit").Range("A1").Value
          sFileName = "&F" "Code generating file name
          For Each myWorksheet In ThisWorkbook.Worksheets
          With myWorksheet.PageSetup
             .LeftFooter = sCompanyName
             .CenterFooter = ""
             .RightFooter = sFileName
          End With
          Next myWorksheet
    End Sub
</source>
   
  


To print a defined area, center horizontally, with 2 rows as titles, in portrait orientation and fitted to page wide and tall - 1 copy

   <source lang="vb">

Sub PrintRpt3()

   With Worksheets("Sheet1").PageSetup
       .CenterHorizontally = True
       .PrintArea = "$A$3:$F$15"
       .PrintTitleRows = ("$A$1:$A$2")
       .Orientation = xlPortrait
       .FitToPagesWide = 1
       .FitToPagesTall = 1
   End With
   Worksheets("Sheet1").PrintOut

End Sub

</source>