Автоматическое изменение номеров при печати путевого листа

Дата: Среда, 20.04.2022, 08:43 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

and_evg, Здравствуйте, помогите пожалуйста настроить автоматическое изменение номеров при печати путевого листа

К сообщению приложен файл: 4323726.xls (96.5 Kb)

Дата: Среда, 20.04.2022, 08:53 | Сообщение № 2

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

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

Сообщений: 452

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

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

Excel 2007

kovsharovalex, Здравствуйте
А что именно нужно?

Дата: Среда, 20.04.2022, 09:26 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

Нужно что бы менялся порядковый номер путевого листа автоматически при печати документа

Дата: Среда, 20.04.2022, 11:43 | Сообщение № 4

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

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

Сообщений: 452

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

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

Excel 2007

В модуль книги:
[vba]

Код

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("CE1").Value = Range("CE1").Value + 1
End Sub

[/vba]

К сообщению приложен файл: 4323726-1-.xls (104.0 Kb)

Дата: Среда, 20.04.2022, 13:45 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

Не получается, спасибо за подсказку

Дата: Среда, 20.04.2022, 13:52 | Сообщение № 6

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

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

Сообщений: 452

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

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

Excel 2007

Цитата kovsharovalex, 20.04.2022 в 13:45, в сообщении № 5 (

)

Не получается

что не получается?
Приложенный файл смотрели?

Дата: Среда, 20.04.2022, 14:01 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

не меняется нумерация

Дата: Среда, 20.04.2022, 14:25 | Сообщение № 8

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

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

Сообщений: 452

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

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

Excel 2007

а макросы включены?

Дата: Среда, 20.04.2022, 15:09 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

да

Дата: Среда, 20.04.2022, 15:13 | Сообщение № 10

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

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

Сообщений: 452

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

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

Excel 2007

Если правильно понял, то нумерация в ячейке "CE1"
Вот она то и меняется

Дата: Среда, 20.04.2022, 15:29 | Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

меняет, но если несколько раз нажимать на кнопку печать, если выбрать 5 копий, то распечатает с одним номером

Дата: Четверг, 21.04.2022, 07:36 | Сообщение № 12

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

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

Сообщений: 452

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

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

Excel 2007

Цитата kovsharovalex, 20.04.2022 в 15:29, в сообщении № 11 (

)

если выбрать 5 копий, то распечатает с одним номером

Конечно!!! так и должно быть ведь это вы 5 копий запросили!

Дата: Четверг, 21.04.2022, 08:01 | Сообщение № 13

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

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

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

Я думал оптимизировать работу, указал 100 листов и все поехало в печатать, а тут нужно 100 раз нажать на кнопку, это конечно упрощает жизнь но не на 100 %, как могу вас отблагодарить?
Как сделать как во вложенном файле?

К сообщению приложен файл: 5872174.xls (69.0 Kb)