Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

сквозные промежуточные итоги

Автор Alex2357, 14.08.2012, 09:28

« назад - далее »

Alex2357

добрый день, не могли бы вы помочь с макросом сквозные промежуточные итоги, у меня идет смещение на 1 строку вниз на каждом листе

Шпец Докапыч

Убавляем строку:
     'er = .HPageBreaks(Страница).Location.Row     'было
      er = .HPageBreaks(Страница).Location.Row - 1 'стало
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Шпец Докапыч

Попробовал распечатать и 1 и 13 страницы, - уходит ровно также, как отображается при Разметке страницы: стр1.10-61, стр13.601-629. И вручную и макросом SHD_PrinItogi - печатает одинаково верно.

А как у тебя? Вручную тоже отрезает 53-61 строки? Как это выглядит на печати - внизу листа пустое поле?
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

Alex2357

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