Макрос на отправку на печать по условию в ячейке

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Макрос на отправку на печать по условию в ячейке (Макросы/Sub)

mikaelw

Дата: Пятница, 10.04.2020, 01:56 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 179

Репутация: 1 ±

Замечаний: 20% ±

Excel 2010, 2013, 2016

Доброго времени суток!

Я не хочу обсуждать само решение по формирования файла, файл есть как есть.

Из файла печатается огромное кол-во документов.

Помогите сделать 2 кнопки на листе "Документ"

"Печать"
"Печать сразу на принтер"

Которая будет отправлять страницу на печать, со следующим условием:

Если значение ячейки К4

К4 <= 31 печатаем страницы с 1 по 1
К4 в диапазоне 32 - 72 печатаем страницы с 1 по 2
К4 в диапазоне 73 - 113 печатаем страницы с 1 по 3
каждый следующие 41 добавляет страницу

Заранее спаибо!

К сообщению приложен файл: 4649559.xlsx (177.2 Kb)

Ответить

Апострофф

Дата: Пятница, 10.04.2020, 06:59 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 467

Репутация: 129 ±

Замечаний: 0% ±

Excel 1997

mikaelw, здравствуйте!
Как положить кнопку на лист и назначить ей макрос вы знаете, надеюсь.
А вот примерный код для второй кнопки (с первой проблем нету?)
[vba]

Код

Sub КНОПА2_ЩЁЛК()
ActiveSheet.PrintOut 1, ([K4] + 50) \ 41
End Sub

[/vba]

Сообщение отредактировал Апострофф - Пятница, 10.04.2020, 07:01

Ответить

RAN

Дата: Пятница, 10.04.2020, 08:29 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

А если учесть, что

Цитата mikaelw, 10.04.2020 в 01:56, в сообщении № 1 ()

со следующим условием:

несколько не соответствует действительности, то код будет такой

[vba]

Код

Sub мяу()
    Dim i&, k&
    With ActiveSheet
        k = 1
        If .HPageBreaks.Count Then
            For i = 1 To .HPageBreaks.Count
                If .HPageBreaks(i).Location.Row < .Range("K5").Value + 10 Then k = k + 1
            Next
        End If
        .PrintOut 1, k
    End With
End Sub

[/vba]

Или такой
[vba]

Код

Sub мяв()
    Dim lr&
    With ActiveSheet
        lr = .Columns(1).Find("*", , xlValues, , xlByRows, xlPrevious).Row
        .PageSetup.PrintArea = "A1:K" & lr
        .PrintOut
    End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Пятница, 10.04.2020, 10:28

Ответить

mikaelw

Дата: Пятница, 10.04.2020, 09:48 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 179

Репутация: 1 ±

Замечаний: 20% ±

Excel 2010, 2013, 2016

я именно кнопки делать и не умею... ((((

Ответить

Апострофф

Дата: Пятница, 10.04.2020, 10:07 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 467

Репутация: 129 ±

Замечаний: 0% ±

Excel 1997

mikaelw, а поиск не помогает? Одна из первых найденных ссылок очень поднимет ваш уровень умения
https://www.excel-vba.ru/chto-um....a-liste

Ответить

mikaelw

Дата: Пятница, 10.04.2020, 15:44 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 179

Репутация: 1 ±

Замечаний: 20% ±

Excel 2010, 2013, 2016

Цитата RAN, 10.04.2020 в 08:29, в сообщении № 3 ()

сколько не соответствует действительности, то код будет такой

Спасибо!

А можно еще код с открытием диалогового окна печати с переданными в него настройками.

Ответить

mikaelw

Дата: Пятница, 10.04.2020, 15:45 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 179

Репутация: 1 ±

Замечаний: 20% ±

Excel 2010, 2013, 2016

Цитата Апострофф, 10.04.2020 в 10:07, в сообщении № 5 ()

а поиск не помогает?

Спасибо.
Ссылка очень помогла.

А то в старом екселе еще помню, а в новом уже нет.

Ответить

RAN

Дата: Пятница, 10.04.2020, 18:53 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата mikaelw, 10.04.2020 в 15:44, в сообщении № 6 ()

код с открытием диалогового окна печати

можно
[vba]

Код

Application.Dialogs(xlDialogPrint).Show

[/vba]

Цитата mikaelw, 10.04.2020 в 15:44, в сообщении № 6 ()

с переданными в него настройками

нельзя.

Быть или не быть, вот в чем загвоздка!

Ответить

mikaelw

Дата: Пятница, 10.04.2020, 20:07 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 179

Репутация: 1 ±

Замечаний: 20% ±

Excel 2010, 2013, 2016

Цитата RAN, 10.04.2020 в 18:53, в сообщении № 8 ()

нельзя.

Можно.

Ответить

RAN

Дата: Пятница, 10.04.2020, 20:15 | Сообщение № 10

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Если знаете, что можно, зачем спрашиваете?
Лучше покажите, как можно.

Быть или не быть, вот в чем загвоздка!

Ответить

mikaelw

Дата: Пятница, 10.04.2020, 20:21 | Сообщение № 11

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 179

Репутация: 1 ±

Замечаний: 20% ±

Excel 2010, 2013, 2016

Цитата RAN, 10.04.2020 в 20:15, в сообщении № 10 ()

Лучше покажите, как можно.

Коряво, но так работает....

[vba]

Код

Sub Принтер()

Dim i&, k&
With ActiveSheet
k = 1
If .HPageBreaks.Count Then
For i = 1 To .HPageBreaks.Count
If .HPageBreaks(i).Location.Row < .Range("K5").Value + 10 Then k = k + 1
Next
End If
Application.Dialogs(xlDialogPrint).Show 1, 1, k
End With

End Sub

[/vba]
P.S. Как правильно оформить сообщение, чтоб текст макроса был правильно виден?