Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
печать листов по выделенным чекбоксам
 
#1
07.05.2020 16:38:07
совсем немного тут нашел по этой тематике,подвижки есть,но толку мало
есть форма,где надо выбирать галочки,что печатать
чекбокс1 это А6:К105
чекбокс2 это А106:К155 и  так далее,для примера взял 5 листов
все листы должны печататься с определенными параметрами,их я взял с макрорекордера (там 0 поля,ориентация альбомная,вписать все столбцы на одну страницу и так далее).
Плюс ещё выбор принтера,он как бы есть,всё работает,но не знаю как это отменить,то есть при нажатии кнопки отмена он всё равно начинает печатать,а хочется чтобы без выбора не начинал
хочется понять хотя бы парочку,а дальше сам додумаю
 
 
 
#2
07.05.2020 16:52:16
Это
Код
Application.Dialogs(xlDialogPrinterSetup).Show

заменить на
Код
    aaa = Application.Dialogs(xlDialogPrinterSetup).Show
    
    If Not aaa Then Exit Sub
Изменено: Ivan.kh - 07.05.2020 16:53:08
 
 
 
#3
07.05.2020 16:59:52
Ivan.kh,спасибо,с этим разобрался
а когда я вывожу диапазоны на печать,то я так понимаю мне надо объявить какую то переменную? там dim то то...иначе пишет object required
 
 
 
#4
07.05.2020 17:31:44
bobr2610, не понял вопроса. Да и тут правило 1 тема один вопрос....
 
 
 
#5
07.05.2020 17:36:01
Ivan.kh,разобрался,всё дело было в названиях,видите ли ему не нравилось,поменял и все теперь печатает
а как по кнопке выделить всё на форме сделать активными все чекбоксы?
 
 
 
#6
07.05.2020 17:49:45
Код
Private Sub CommandButton4_Click()
Dim x As Control
    For Each x In Me.Controls
        If TypeOf x Is MSForms.CheckBox Then x.Value = True
    Next
End Sub
И давайте контролам осмысленные имена. Например, вместо CommandButton4 лучше присвоить CmdSelectAll
 
 
 
Страницы: 1
Наверх