На печать бланк но каждая страница с отдельным номером

Старая форма входа

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

mikaelw

Дата: Суббота, 18.03.2017, 00:07 | Сообщение № 1

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

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

Сообщений: 179

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

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

Excel 2010, 2013, 2016

Т.е. есть определенный документ, его нужно распечатать 327 раз.

Все доки должны быть идентичны!

Но у каждой страницы должен быть свой номер от 1 до 327(нумерация страниц или что-то еще?)

Кто подскажет как это сделать?

Создавать внутри одного файла 328 страниц, не выход, т.к. есть таблица с нумерацией и летит нумерация.

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

К сообщению приложен файл: 1489899.docx (13.4 Kb)

Ответить

Boris_R

Дата: Воскресенье, 26.03.2017, 18:41 | Сообщение № 2

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

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

Сообщений: 8

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

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

Excel 2010

Открыть верхний колонтитул.
Весь текст - в колонтитул.
В качестве номера документа использовать поле Page с ключем числового формата \# 000
{ Page \# 000 }
Пару фигурных скобок вводить сочетанием клавиш CTRL + F9
Закрыть колонтитул
Затем запустить макрос:
[vba]

Код

Sub Ins_Pages()
'Вставка 326 разрывов страниц в документ
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 1 To 326
    Selection.InsertBreak Type:=0
    Next i
    Application.ScreenUpdating = True
End Sub

[/vba]
Результат - см. вложение
Полученный документ отправить на печать

К сообщению приложен файл: 1489899_327page.docx (21.2 Kb)

Ответить

На печать бланк но каждая страница с отдельным номером

Страница 1 из 1
1