Последняя линия на странице при печати

[tae1980]

ALL: Есть длинная таблица на несколько страниц. По краям всей таблице идет двойная граница, внутри одинарная, так же есть ячейки объединенные по высоте. Необходимо, что бы при выводе на печать по периметру каждого листа шла двойная линия. На компе все красиво, но при попытке печать последняя линия либо одинарная, либо ее нет вовсе (при прохождение границы печати по вертикальному объединению).
Можно ли с этим что нибудь сделать?

[Slavik]

Есть длинная таблица на несколько страниц.

Желательно чтоб ви ее показали. Ну а перед тем как печатать, пробуйте предварительно просмотреть документ. Возможно проблема состоит в настройках принтера.... Одним словом покажыте свою таблицу

[EducatedFool]

Можно сделать, но сложно.
Надо макросом перед печатью проверять местоположение разрывов страниц, и дорисовывать нужные границы (и при необходимости разбивать объединённые ячейки)

Есть и другие варианты (например, перед печатью добавлять строки внизу каждой печатной страницы)

В любом случае, без примера файла посоветовать что-то заведомо работающее вряд ли получится...

[valerij]

Сообщение от tae1980

На компе все красиво, но при попытке печать последняя линия либо одинарная...

В предварительном просмотре, "поиграй" с полями(их мона перетягивать, тем самым смещать текст) и Разметка страницы.

[tae1980]

Сообщение от Slavik

Желательно чтоб ви ее показали. Ну а перед тем как печатать, пробуйте предварительно просмотреть документ. Возможно проблема состоит в настройках принтера.... Одним словом покажыте свою таблицу

Привожу пример таблицы. Там ни чего сверх естественного.

[tae1980]

Сообщение от valerij

В предварительном просмотре, "поиграй" с полями(их мона перетягивать, тем самым смещать текст) и Разметка страницы.

Таблица формируется макросом, но ручной просмотр обязателен.
Таким образом можно можно избавиться от "разрезания" объеденных ячеек. Но вот решить проблему с последнее двойной линией, это не сможет.

[valerij]

Сообщение от tae1980

Но вот решить проблему с последнее двойной линией, это не сможет.

Проверил печать, все Класс, упомянутых дефектов не нашел, могу сканировать лист 1 и последний, и скрин выложить

[EducatedFool]

Запустите перед печатью такой макрос:

Sub макрос()
    On Error Resume Next
    Dim br As HPageBreak, sh As Worksheet, ra As Range: Set sh = ActiveSheet
    For i = 1 To sh.HPageBreaks.Count
        Set br = sh.HPageBreaks(i)
        Set ra = br.Location.Resize(, sh.UsedRange.Columns.Count).Offset(-1)
        ra.Borders(xlEdgeBottom).LineStyle = xlDouble
        ra.Borders(xlEdgeBottom).Weight = xlThick
    Next
End Sub

[tae1980]

Сообщение от valerij

Проверил печать, все Класс, упомянутых дефектов не нашел, могу сканировать лист 1 и последний, и скрин выложить

В этом примере нету окончания страницы без линии. Но его не сложно получить, добавив всего лишь одну дополнительную строчку. :)
Но проблема в том что по оформлению все линии по периметру должны быть двойными, а пока двойная нижняя получатся только на последней странице.

[tae1980]

Сообщение от EducatedFool

Запустите перед печатью такой макрос:

Sub макрос()
    On Error Resume Next
    Dim br As HPageBreak, sh As Worksheet, ra As Range: Set sh = ActiveSheet
    For i = 1 To sh.HPageBreaks.Count
        Set br = sh.HPageBreaks(i)
        Set ra = br.Location.Resize(, sh.UsedRange.Columns.Count).Offset(-1)
        ra.Borders(xlEdgeBottom).LineStyle = xlDouble
        ra.Borders(xlEdgeBottom).Weight = xlThick
    Next
End Sub

Макрос сработал, но только для первой страницы :((( Остальные он не затронул. Попробую разобраться как это подправить.