Sub Pechat()
    Worksheets("Nakladnay").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:= 1 , Collate:=True
    Worksheets("Vvod").Select
End Sub

Private Sub Worksheet_Activate()
' поиск первой пустой строки в диапозоне от 17 до 116 строки по столбцу "А"
    For x =  17  To  116 
    If Cells(x,  1 ).Value = "" Then y = x: Exit For
    Next x
    If y =  17  Then Exit Sub ' если таблица пуста то выход
    Rows(y & ":116").EntireRow.Hidden = True ' скрытие строк
    ' Cells(117, 50).Value = HPageBreaks.Count + 1 
End Sub
' отображение строк
Private Sub Worksheet_Deactivate()
    Worksheets("Nakladnay").Rows("17:116").EntireRow.Hidden = False 
End Sub