Скрытый текст |
---|
Sub Опросник() Dim intF As Integer intF = MsgBox("МОЖНЫЙ, РЕГАНТО И КРАЯ ДОБАВЛЕНЫ В СПИСОК?", vbYesNo + vbDefaultButton2 + vbInformation, "ПОДТВЕРЖДЕНИЕ") If intF = vbNo Then MsgBox "ЧТО ЗА БИГУДИ ОПЯТЬ?" & vbNewLine & _ "ДАВАЙ, СОБЕРИСЬ УЖЕ!", vbCritical + vbOKOnly Exit Sub Else iCount = Application.InputBox("ВВЕДИ КОЛИЧЕСТВО МАРШРУТОВ!:") If iCount = "" Or iCount < 1 Then MsgBox "ЕСЛИ ТАК БУДЕТ ПРОДОЛЖАТЬСЯ" & vbNewLine & _ "ЗАБЛОКИРУЮ КОМП И БУДЕШЬ ВРУЧНУЮ ПИСАТЬ!", vbCritical + vbOKOnly Exit Sub End If Sheets("Лист1").Select For I = 1 To iCount Range("J2").Value = I ActiveSheet.PrintOut Next MsgBox "МЫ ЭТО СДЕЛАЛИ!", vbInformation + vbOKOnly End If Sheets("Лист2").Select End Sub |
Здравствуйте, макрос на печать активного листа (в этом случае лист1). Встала острая необходимость прятать лист1 (форму) от корявых ручек. Можно в этом макросе перед печатью показывать скрытый лист1, а сразу после печати скрывать его?