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

Вход

Регистрация

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

 

= Мир MS Excel/Корректировка макроса нумерации при печати - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Корректировка макроса нумерации при печати
superboroda1961 Дата: Четверг, 19.12.2024, 10:28 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

2019
Здравствуйте Уважаемые знатоки EXCEL!
Возник вопрос о корректировке макроса нумерации при печати (в макросах не силен ВООБЩЕ):

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

Дело в том, что этот макрос нумерации при печати работает хорошо, но мой принтер Не Имеет возможности двусторонней печати и при печати оборотной стороны листа изменяет нумерацию это неудобно при печати нескольких экземплярах, а необходимо мне, чтобы нумерация изменялась через определенное(заданное) количество печатаемых многостраничных экземпляров (2, 3, 4, 5) желательно «внедрить» кнопку выбора (через сколько экземпляров) изменить нумерацию.
Благодарствуйте!!!
К сообщению приложен файл: 0439400.xlsx (12.0 Kb)


ВАМ
 
Ответить
СообщениеЗдравствуйте Уважаемые знатоки EXCEL!
Возник вопрос о корректировке макроса нумерации при печати (в макросах не силен ВООБЩЕ):

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

Дело в том, что этот макрос нумерации при печати работает хорошо, но мой принтер Не Имеет возможности двусторонней печати и при печати оборотной стороны листа изменяет нумерацию это неудобно при печати нескольких экземплярах, а необходимо мне, чтобы нумерация изменялась через определенное(заданное) количество печатаемых многостраничных экземпляров (2, 3, 4, 5) желательно «внедрить» кнопку выбора (через сколько экземпляров) изменить нумерацию.
Благодарствуйте!!!

Автор - superboroda1961
Дата добавления - 19.12.2024 в 10:28
  • Страница 1 из 1
  • 1
Поиск:

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