Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макос для изменения 1 цифры при печати листов
Макос для изменения 1 цифры при печати листов
Пекло Дата: Понедельник, 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
 
Ответить
СообщениеДобрый день!

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

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

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

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

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

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

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

Автор - Пекло
Дата добавления - 21.01.2019 в 13:46
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)


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДобавить закладку "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]

Автор - RAN
Дата добавления - 21.01.2019 в 20:18
Пекло Дата: Вторник, 22.01.2019, 17:34 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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

Супер!
 
Ответить
СообщениеRAN, Спасибо большое!

Супер!

Автор - Пекло
Дата добавления - 22.01.2019 в 17:34
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макос для изменения 1 цифры при печати листов
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!