ActiveSheet.PageSetup.PrintArea = Range("A56:P167").Address

'k - количество генерируемых строк на определённом листе, высчитывается выше по коду
If k >  0  Then
Sheets("Лист1").Select
    If k >  16  Then
    x = k \  16 
        With ActiveSheet.PageSetup
        .FitToPagesWide =  1 
        .FitToPagesTall = x
        End With
    End If
  ActiveWindow.SelectedSheets.PrintOut Copies:= 1 , Collate:=True
End If

 For i = first To last Step  2 
    ActiveSheet.PageSetup.CenterFooter = "&P" 'Центральный нижний колонтитул.
    Application.ActiveSheet.PrintOut From:=i, To:=i, Copies:=cbNcopy.Value, Collate:=True
 Next

Private Sub CommandButton1_Click()
Me.Hide
ActiveSheet.PageSetup.CenterFooter = "&P" & " Просмотр осуществляет " & Application.UserName
ActiveWindow.SelectedSheets.PrintPreview
Me.Show
End Sub

Sub Печать_вед()

With ActiveSheet.PageSetup
'  .LeftHeader = "&P" 'Левый верхний колонтитул.
'  .CenterHeader = "&P" 'Центральный верхний колонтитул.
'  .RightHeader = "&P" 'Правый верхний колонтитул.
'  .LeftFooter = "&P" 'Левый нижний колонтитул.
  .CenterFooter = "&P" 'Центральный нижний колонтитул.
'  .RightFooter = "&P" 'Правый нижний колонтитул.
End With

frmPrinter.Show
End Sub

Sub Печать_вед()
With ActiveSheet.PageSetup
  .CenterFooter = "Страница " & "&P" & " из " & "&N" 'Центральный нижний колонтитул.
End With
   frmPrinter.Show
End Sub