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

[valerij]

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

В этом примере нету окончания страницы без линии.

Ну а это, что?
1 Страница, середина вырезана
2 Последняя страница

[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

Странно: после первого запуска двойной подчеркивается только страница. Если запустить тут же повторно, подчеркиваются все оставшиеся...
К чему бы это?

[tae1980]

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

Ну а это, что?
1 Страница, середина вырезана
2 Последняя страница

Так ведь на рис1 двойной линии нет... Об этом я и говорю. А стандарт оформления един для всех листов. Это конечно не значительная погрешность, но на ее основании можно в теории отказать в приеме документов - как не соответствующих стандарту оформления. Чего и хочется из бежать.

[EducatedFool]

Вот так будет работать:

Sub макрос()
    'On Error Resume Next
    ActiveWindow.View = xlPageBreakPreview ' режим отображения разметки страницы
    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)
        'Debug.Print i, ra.Address
        ra.Borders(xlEdgeBottom).LineStyle = xlDouble
        ra.Borders(xlEdgeBottom).Weight = xlThick
    Next
    ActiveWindow.View = xlNormalView
End Sub

К чему бы это?

Разработчики Excel и здесь перемудрили...
Макрос работает, только если включен режим отображения разметки страницы (меню Вид - Разметка страницы)

[tae1980]

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

Вот так будет работать:
Разработчики Excel и здесь перемудрили...
Макрос работает, только если включен режим отображения разметки страницы (меню Вид - Разметка страницы)

Спасибо!!! Все работает. Самостоятельно я бы до такого явно не додумался.

[valerij]

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

Так ведь на рис1 двойной линии нет... Об этом я и говорю.

Классный макрос!!
На конец я "въехал", если бы не макрос Игоря, так бы и не понял.
Но то же самое я сделал без макроса, сдвинув в Разметке страниц границу на двойную линию(не всегда же под рукой, будет такой макрос)

Это Игорю
---------------
| ^^пиво^^ \\|""\\_,_
|___________||___|__|)
(@)(@)""*|(@)(@)**(@)