Sub ImprimeAuto60(ByVal control As IRibbonControl)
Dim I As Long
Application.ScreenUpdating = False
For I = 1 To 251
If Application.CountA(Rows(I)) = 0 Then Rows(I).Hidden = True
Next I
Application.ScreenUpdating = True
ActiveSheet.PrintOut
Application.ScreenUpdating = False
For I = 1 To 251
If Application.CountA(Rows(I)) = 0 Then Rows(I).Hidden = False
Next I
Application.ScreenUpdating = True
End Sub