Макос для изменения 1 цифры при печати листов

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

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

Пекло

Дата: Понедельник, 21.01.2019, 13:46 | Сообщение № 1

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

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

Сообщений: 4

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

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

Excel 2010

Добрый день!

Есть пустой бланк акта. На странице (см. вложение) есть номер акта (пометил красным). Нужно содать макрос со следующими функциями:

1. При печати n-го количества листов этот номер увеличивался.

То есть, начальное значение, например - 5. Нужно напечатать 50 листов.
Нажимаем печать и у нас выходят листы с номерами: 5,6,7,8... и тд до 55.

2. После печати на листе сохранялся последний номер+1.
То есть если на последней странице получилось 55, то сохраняется номер 56

3. Желательно наличие возможности делать 2 копии листа одного номера. То есть, как в п.1, но выходят листы: 5,5,6,6, 7,7, 8,8... и тд.

Возможно, поставить ячейку или форму для реализации данной функции.

Буду очень благодарен за помощь.

К сообщению приложен файл: __.doc (55.5 Kb)

Сообщение отредактировал Пекло - Понедельник, 21.01.2019, 13:50

Ответить

RAN

Дата: Понедельник, 21.01.2019, 20:18 | Сообщение № 2

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

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

Сообщений: 5660

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

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

2010

Добавить закладку "num".
[vba]

Код

Sub DocPrint()
    Dim sInput$, counter_E&, lNumber&
    sInput = InputBox("Укажи количество документов")
    counter_E = Val(sInput)
    lNumber = Val(ActiveDocument.Bookmarks("num").Range.Text)
    Do While counter_E > 0
        ActiveDocument.PrintOut Copies:=2
        counter_E = counter_E - 1
        lNumber = lNumber + 1
        ActiveDocument.Bookmarks("num").Range.Select
        Selection = lNumber
        ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="num"
        DoEvents
    Loop
'    ActiveDocument.Save
End Sub

[/vba]

К сообщению приложен файл: 1359745.doc (69.5 Kb)

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

Ответить

Пекло

Дата: Вторник, 22.01.2019, 17:34 | Сообщение № 3

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

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

Сообщений: 4

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

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

Excel 2010

RAN, Спасибо большое!

Супер!

Ответить

Макос для изменения 1 цифры при печати листов

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