вопрос по VBA

[Maks the best]

Кто подскажет, такой вопрос ...
Как определить сколько с одного листа на печать уходит страниц?

[Maks the best]

я имею ввиду лист Excel ...

[a_mayor]

Код: Выделить всё


HPageBreaks.Count


[Maks the best]

Понимаешь, если на листе Excel было при выводе на печать больше одного листа (после разбиения на страницы) то ActiveWindow.SelectedSheets.HPageBreaks.Count
выдаёт всё равно один лист ...

[Al Khamid]

22

[Maks the best]

Спасибо, за ответ !

Слушай, а как ты определяешь границу разрыва страницы, только по параметру высоты страницы? Просто при авторазбиении там она вальируется от этой величины и не всегда можно понять последний это лист или к примеру 72 из 143 ...? У меня на 1 листе иногда до 150 - 200 страниц... Ну вообще, если сможешь, напиши свой метод...

[Al Khamid]

[Maks the best]

Спасибо, посмотрю, попробую

[Dave]

Извиняюсь, а никто более рационального и менее объмного спсособа определения количества страниц на листе не нашел?

[Maks the best]

я нашел, только пока чуть занят, завтра напишу

[Dave]

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

[Maks the best]

намного, только есть нюансы там одни, надо мне на код взглянуть, а пока ника, так что узавтра :O)

[Dave]

не хочу показаться назойливой....

[Maks the best]

вобщем так:

Код: Выделить всё


Public s As Object
Public n As Integer

Sub num_s()

'номер первой страницы
n = 1
' цикл всех листов книги
For Each s In Sheets
' первый номер на листе s
s.PageSetup.FirstPageNumber = n
' номер в правом нижнем колонтитуле 8 шрифтом
s.PageSetup.RightFooter = "&8&P"
' корректировка n
n = s.HPageBreaks.Count + n + 1
Next s

End Sub


[Nicky]

вобщем так:

Код: Выделить всё

Public s As Object
Public n As Integer

Sub num_s()

'номер первой страницы
n = 1
' цикл всех листов книги
For Each s In Sheets
' первый номер на листе s
s.PageSetup.FirstPageNumber = n
' номер в правом нижнем колонтитуле 8 шрифтом
s.PageSetup.RightFooter = "&8&P"
' корректировка n
n = s.HPageBreaks.Count + n + 1
Next s

End Sub


Не работает.
А вот это работает:

Код: Выделить всё

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 30.06.2006 (nicky)
'
' Сочетание клавиш: Ctrl+q
'
  With ThisWorkbook.ActiveSheet
    MsgBox "Лист: " & .Name & vbLf & "Страниц: " & (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1)
  End With
End Sub


[Maks the best]

Nicky
все работает

[Nicky]

Не работает. К тому же еще книгу изменяет. Бяка
Поднимите руки, у кого работает код Maks the best'а?
А у кого мой?

[Maks the best]

ну единственное не учел VPageBreaks.Count

вот

Код: Выделить всё


Public s As Object
Public n As Integer

Sub num_s()

'номер первой страницы
n = 1
' цикл всех листов книги
For Each s In Sheets
' первый номер на листе s
s.PageSetup.FirstPageNumber = n
' номер в правом нижнем колонтитуле 8 шрифтом
s.PageSetup.RightFooter = "&8&P"
' корректировка n
n = s.HPageBreaks.Count + s.VPageBreaks.Count + n + 1
Next s

End Sub


[Nicky]

ну единственное не учел VPageBreaks.Count

Даже если исправить присутствующую в коде ошибку, все равно показывает неправильно.
Ты мой код смотрел? Чем он плох?
ИМХО ты подгоняешь результат под конкретную книгу

[Maks the best]

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

[Nicky]

А это тогда что?

Кто подскажет, такой вопрос ...
Как определить сколько с одного листа на печать уходит страниц?

[Maks the best]

Nicky
вопрос был с контекстом простановки страниц, я техникой использования кнопки просмотра владел, дядя бил учил в документации к офису

[Maks the best]

короче оба кода неправильно считают иногда если HPageBreaks.Count больше двух и VPageBreaks.Count больше нуля ... так что ...