Страницы: 1
RSS
Печать выделенного диапазона по условию ячейки
 
Здравствуйте уважаемые, помогите с макросом. Нужен макрос на печать диапазона на листе 2 по условию А1 листа 1. Если А1 =1 то печать листа 2 с масштабом 100%,если А1 =2 то масштаб  печати листа 2 - 75%
 
Доброе время суток.
Пожалуйста
Код
Public Sub printSheet2()
    Dim outSheet As Worksheet
    
    Set outSheet = ThisWorkbook.Worksheets("Лист2")
    outSheet.Activate
    If ThisWorkbook.Worksheets("Лист1").Range("A1").Value = 1 Then
        outSheet.PageSetup.Zoom = 100
    Else
        outSheet.PageSetup.Zoom = 75
    End If
    Selection.PrintOut
End Sub
 
Сейчас попробовал ваш пример выходит пустой лист. Приложил свой пример, на кнопке первого листа запускается макрос, зависимая ячейка С4. Если она равна "бетон" то zoom 85, если "раствор" то 75.
 
Цитата
DenisShiych написал:
Сейчас попробовал ваш пример выходит пустой лист.
Потому что нарушаете условие использования, заданное вами же
Цитата
Печать выделенного диапазона по условию ячейки
Страницы: 1
Наверх