Печать листа Excel

[Maks the best]

Никто не сталкивался:

после команды

SelectedSheets.PrintOut Copies:=1

нет никакого человеческого способа узнать сколько на печать ушло страниц (после авторазбиения на страницы)?

[abracadabra]

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

Sub abc()
pb = Worksheets(1).HPageBreaks.Count
Debug.Print pb
End Sub

[Maks the best]

abracadabra
спасибо тебе огромное
вот только соображает этот HPageBreaks.Count долго
но в точку

[Maks the best]

а ещё проблема:

при отправке на печать листа (ну он разобьётся на скока то там страниц) надо каждую эту страницу пронумеровать попорядку в колонтитулах (щас приходится прогонять эти листы через Word ещё потом) всё перепробовал, не хочет Excel ставить номера попорядку на эти страницы, везде только один и тот же ...

[abracadabra]

Лучше тебе наверно всё скопировать в ворд, а там уже печатать

[uhm]

Maks the best, а автотекст?

ActiveSheet.PageSetup.LeftFooter = "&P"

[Maks the best]

uhm

вообще да, только как этот номер дальше гнать, если к примеру у меня в книге Excel 50 листов и на каждом там разобьётся ещё на 5-6 страниц ...