Здравствуйте! Подскажите, как можно решить подобную проблему, распечатать таблицу с большим количеством строк, где имеются пустые ячейки (пустые ячейки могут быть объединены в одну). При выводе на печать (формат А4), первый столбец внизу листа не имеет горизонтальной линии, таблица выглядит "разорванной". Можно, конечно, в режиме "разметка страницы" в ручную нарисовать горизонтальные линии, но при этом целостность данных и смысл таблицы нарушается. Заранее спасибо!
Здравствуйте! Подскажите, как можно решить подобную проблему, распечатать таблицу с большим количеством строк, где имеются пустые ячейки (пустые ячейки могут быть объединены в одну). При выводе на печать (формат А4), первый столбец внизу листа не имеет горизонтальной линии, таблица выглядит "разорванной". Можно, конечно, в режиме "разметка страницы" в ручную нарисовать горизонтальные линии, но при этом целостность данных и смысл таблицы нарушается. Заранее спасибо!Sashahail
Если сделать сводную таблицу - можно в свойствах таблицы на вкладке печать - повторять название. Возможно не совсем то - но удобно. Или же макрос:
[vba]
Код
Sub d() Dim sh As Worksheet, i&, ii& Set sh = ActiveSheet For i = 1 To sh.HPageBreaks.Count ii = sh.HPageBreaks(i).Location.Row - 1 With Range("B" & ii).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin End With Next ii = sh.Cells(Rows.Count, 3).End(xlUp).Row With Range("B" & ii).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin End With End Sub
[/vba]
В файле нажмите кнопку - потом смотрите
Если сделать сводную таблицу - можно в свойствах таблицы на вкладке печать - повторять название. Возможно не совсем то - но удобно. Или же макрос:
[vba]
Код
Sub d() Dim sh As Worksheet, i&, ii& Set sh = ActiveSheet For i = 1 To sh.HPageBreaks.Count ii = sh.HPageBreaks(i).Location.Row - 1 With Range("B" & ii).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin End With Next ii = sh.Cells(Rows.Count, 3).End(xlUp).Row With Range("B" & ii).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin End With End Sub