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

Вход

Регистрация

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

 

= Мир MS Excel/Нумерация страниц при печати нескольких листов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Нумерация страниц при печати нескольких листов (Формулы/Formulas)
Нумерация страниц при печати нескольких листов
alexmsokolov Дата: Среда, 13.02.2019, 10:20 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
В книге находится несколько листов (пусть будет 3). Каждый лист содержит несколько страниц(от 2 до 4). Если задать колонтитул "Страница &P из &N", то нумерация работает корректно при печати каждого листа отдельно.
Но если печатать несколько листов одновременно, то вместо &N подставляется общее кол-во страниц на выбранных листах.
Как задать нумерацию так, чтобы при печати нескольких листов вместо &N подставлялось кол-во страниц в листе, который сейчас отображается в превью?
То есть у первого листа нумерация 1 из 2, 2 из 2
У второго 1 из 3, 2 из 3, 3 из 3
У третьего 1 из 4, 2 из 4, 3 из 4, 4 из 4.
 
Ответить
СообщениеВ книге находится несколько листов (пусть будет 3). Каждый лист содержит несколько страниц(от 2 до 4). Если задать колонтитул "Страница &P из &N", то нумерация работает корректно при печати каждого листа отдельно.
Но если печатать несколько листов одновременно, то вместо &N подставляется общее кол-во страниц на выбранных листах.
Как задать нумерацию так, чтобы при печати нескольких листов вместо &N подставлялось кол-во страниц в листе, который сейчас отображается в превью?
То есть у первого листа нумерация 1 из 2, 2 из 2
У второго 1 из 3, 2 из 3, 3 из 3
У третьего 1 из 4, 2 из 4, 3 из 4, 4 из 4.

Автор - alexmsokolov
Дата добавления - 13.02.2019 в 10:20
krosav4ig Дата: Среда, 13.02.2019, 14:57 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2034
Репутация: 847 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Поместите этот код в модуль ЭтаКнига [vba]
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim Sh As Worksheet
    For Each Sh In Me.Windows(1).SelectedSheets
        Sh.PageSetup.CenterFooter = "Страница  &P из " & Sh.HPageBreaks.Count + 1
    Next
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.PageSetup.CenterFooter = "Страница  &P из &N"
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеПоместите этот код в модуль ЭтаКнига [vba]
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim Sh As Worksheet
    For Each Sh In Me.Windows(1).SelectedSheets
        Sh.PageSetup.CenterFooter = "Страница  &P из " & Sh.HPageBreaks.Count + 1
    Next
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.PageSetup.CenterFooter = "Страница  &P из &N"
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 13.02.2019 в 14:57
alexmsokolov Дата: Среда, 13.02.2019, 16:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
krosav4ig, спасибо за ответ. Макрос работает. Но к сожалению, макросы использовать нельзя
 
Ответить
Сообщениеkrosav4ig, спасибо за ответ. Макрос работает. Но к сожалению, макросы использовать нельзя

Автор - alexmsokolov
Дата добавления - 13.02.2019 в 16:15
RMMMM Дата: Четверг, 14.02.2019, 01:12 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Не знаю как в русской версии (по идее так же). В английской просто меняете [vba]
Код
Страница &[Page] из &[Pages]
[/vba] на [vba]
Код
Страница [&[Page]] из [&[Page]]
[/vba]
 
Ответить
СообщениеНе знаю как в русской версии (по идее так же). В английской просто меняете [vba]
Код
Страница &[Page] из &[Pages]
[/vba] на [vba]
Код
Страница [&[Page]] из [&[Page]]
[/vba]

Автор - RMMMM
Дата добавления - 14.02.2019 в 01:12
RMMMM Дата: Четверг, 14.02.2019, 01:24 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
На всякий случай прилагаю пример
К сообщению приложен файл: Book477.xlsx(11.6 Kb)
 
Ответить
СообщениеНа всякий случай прилагаю пример

Автор - RMMMM
Дата добавления - 14.02.2019 в 01:24
alexmsokolov Дата: Пятница, 15.02.2019, 10:38 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RMMMM, к сожалению так же не работает как нужно мне
 
Ответить
СообщениеRMMMM, к сожалению так же не работает как нужно мне

Автор - alexmsokolov
Дата добавления - 15.02.2019 в 10:38
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Нумерация страниц при печати нескольких листов (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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