Скрытый текст |
---|
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 |
Перед печатью показывать скрытый лист, а после печати скрывать
25.02.2020 13:23:44
Я в том плане, что можно же Sheets("Лист1").PrintOut сделать.
Изменено:
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
|
|||
|
|
25.02.2020 13:26:32
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
|
|||
|
|
25.02.2020 13:39:59
А в какое место это вставить в макрос? Или что в нем заменить? Форма на листе1 заполняется из таблицы (лист2) сменой значения ячейки J2 (массовая печать с автозаполнением). Так вот мне нужно лист2 оставить открытым для внесения данных в таблицу, а форму (лист1) скрыть, но в скрытом виде она не выводится на печать (ошибка). Поэтому перед печатью показать, после печати скрыть.
Изменено: |
|
|
|
25.02.2020 14:18:56
лучше будет записать так:
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
|
|||||||
|
|
25.02.2020 14:27:06
|
||||
|
|
|||