нумерация страниц в ячейке

Пользователь

Сообщений: 6 Регистрация: 06.06.2013

06.06.2013 07:02:10

Я имею на одном листе экселя документ. Первые 16 строк этого листа составляют шапку документа и будут печататься на каждой странице (бумажной) как заголовок. Среди этих 16 строк есть ячейка, где нужно указать номер страницы и кол-во страниц документа ( страница ХХ из ХХ ) выводимых на печать.

Как сделать это в колонтитуле листа я знаю, но мне требуется, именно в ячейке входящую в состав шапки документа.

Пожалуйста, не откажите, если знаете ответ.

LVL Пользователь Сообщений: 905 Регистрация: 01.01.1970	#2 06.06.2013 07:10:31 Пример приложите, а то ваше объяснение замысловатое очень, шапка одна, листов много, при этом в одной шаке должны быть разные номера страниц и видимо все в одном месте

Babanak Пользователь Сообщений: 6 Регистрация: 06.06.2013	#3 06.06.2013 07:22:57 Вот этот зверь..... Прикрепленные файлы MIR 0607B-08.xlsb (19.9 КБ)

LVL Пользователь Сообщений: 905 Регистрация: 01.01.1970	#4 06.06.2013 07:27:10 И как по вашему одна ячейка может одновременно содержать разные значения?

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#5 06.06.2013 07:35:03 Можно при выводе на печать макросом менять значения для каждой страницы Я сам - дурнее всякого примера! ...

Babanak Пользователь Сообщений: 6 Регистрация: 06.06.2013	#6 06.06.2013 07:37:24 Жаль..... Я думал если нумерация реализована в колонтитуле, то можно это "прикрутить" и к ячейке. Спасибо что откликнулись. Изменено: Babanak - 06.06.2013 07:38:27

Babanak

Пользователь

Сообщений: 6 Регистрация: 06.06.2013

06.06.2013 07:44:24

Цитата
KuklP пишет: Можно при выводе на печать макросом менять значения для каждой страницы

Ответите на мой e-mail ? Я вам писал в личку...

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

06.06.2013 07:51:16

Не надо писать мне в личку, если только не собираетесь оплачивать мои услуги. В модуль книги:

Код

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Application.EnableEvents = 0
    If ActiveSheet.Name <> "page 1 of 1" Then Exit Sub
    Dim i&, n
    ActiveWindow.View = xlPageLayoutView
    ActiveWindow.View = xlNormalView
    i = ActiveSheet.HPageBreaks.Count + 2
    For n = 1 To i
        ActiveSheet.[k4] = n & " of " & i
        ActiveSheet.PrintOut n, n
    Next
    Application.EnableEvents = -1
    Cancel = -1
End Sub

Изменено: KuklP - 06.06.2013 08:01:52

Я сам - дурнее всякого примера! ...

Babanak Пользователь Сообщений: 6 Регистрация: 06.06.2013	#9 06.06.2013 07:58:49 Спасибо!

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#10 06.06.2013 08:04:42 Я изменил макрос. Обновите. Я сам - дурнее всякого примера! ...

ber$erk Пользователь Сообщений: 2735 Регистрация: 25.12.2012	#11 06.06.2013 08:07:24 KuklP, классно! Это я себе в памятку положу. Учимся сами и помогаем другим...

Babanak Пользователь Сообщений: 6 Регистрация: 06.06.2013	#12 06.06.2013 08:13:32 KuklP, спасибо еще раз, раз, раз

Читают тему