Страницы: 1
RSS
Назначить область печати с условием
 
Добрый день!
Помогите, пожалуйста, решить задачу в excel, если необходимо, для текущего рабочего листа - CommandButton1, распечатать область (AJ15:BT47) отмеченную желтым цветом, в горизонтальном ориентации без предварительного просмотра и CommandButton2, распечатать область (AJ51:BH100) отмеченную зеленым цветом, в примере, в вертикальной ориентации без предварительного просмотра.
Буду очень благодарен, тому кто знает решение.
 
сделайте вручную, запишите действия макрорекордером
навесьте полученные макросы на нужные вам КоммандБатоны
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Спасибо!
Получается.
С небольшим отклонением от задуманного результата.
После выполнения макрос-команды все равно остаюсь в окне предварительного просмотра перед печатью.
Код
Private Sub CommandButton1_Click()
    Range("AJ15:BT47").Select
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
    End With
    ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,1,,,TRUE,,FALSE)"
End Sub
Изменено: sunnyb - 15.02.2020 14:40:57
 
Код
ActiveSheet.PageSetup.PrintArea=Range("AJ15:BT47").Address
 
sunnyb, код следует оформлять соответствующим тегом: ищите такую кнопку (см. скрин) и исправьте своё сообщение.
Страницы: 1
Наверх