Sub печать_нескрытых_строк()
Dim xxx As Range
For i = 21 To 101 Step 20
    If Rows(i).RowHeight <> 0 Then
        Set xxx = Range("A" & i & ":M" & i + 19)
        ActiveSheet.PageSetup.PrintArea = xxx.Address
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End If
Next i
End Sub

Sub Макрос1()
    ActiveWindow.View = xlPageBreakPreview
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
End Sub
Sub Макрос2()
    ActiveWindow.DisplayGridlines = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.View = xlNormalView
End Sub

'При нажатии чекбокса открываем TextBox6
    Sub CheckBox1_Click()
        TextBox6.Text = ""
        'TextBox6.Visible = CheckBox1.Value
        TextBox6.Visible = True
        CheckBox1.Visible = False
        TextBox6.SetFocus
    End Sub