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

Страница 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, здравствуйте!
Как положить кнопку на лист и назначить ей макрос вы знаете, надеюсь.
А вот примерный код для второй кнопки (с первой проблем нету?)

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

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

Ответить

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

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

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

Сообщений: 5660

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

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

2010

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

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

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

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

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

Или такой

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

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

Сообщение отредактировал 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 ( писал(а)):

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

можно

Application.Dialogs(xlDialogPrint).Show

Цитата 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 ( писал(а)):

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

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

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