Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Тр.договор" Then
  Call SetFooterOnLastPage
  Cancel = True
End If
End Sub

Sub SetFooterOnLastPage()
Dim pgCount&
On Error Resume Next
Application.EnableEvents = False
With ActiveSheet
  pgCount = .PageSetup.Pages.Count
  If pgCount > 1 Then
  With .PageSetup
    .LeftFooter = "Наниматель ______________"
    .CenterFooter = "&P"
    .RightFooter = "Работник_________________"
  End With
    .PrintOut From:=1, To:=pgCount - 1
  End If
  With .PageSetup
    .LeftFooter = ""
    .CenterFooter = "&P"  'номер страницы на последнем листе по середине
    .RightFooter = ""
  End With
  .PrintOut From:=pgCount, To:=pgCount
End With
Application.EnableEvents = True
End Sub