diff --git a/src/report/report-system/html-fonts.scm b/src/report/report-system/html-fonts.scm index c769f944525..8ad15bd8dc8 100644 --- a/src/report/report-system/html-fonts.scm +++ b/src/report/report-system/html-fonts.scm @@ -159,6 +159,7 @@ "a { " account-link-font-info " }\n" "body, p, table, tr, td { text-align: left; vertical-align: top; " text-cell-font-info " }\n" "tr.alternate-row { background: " alternate-row-color " }\n" + "tr { page-break-inside: avoid !important;}\n" "th.column-heading-left { text-align: left; " number-header-font-info " }\n" "th.column-heading-center { text-align: center; " number-header-font-info " }\n" "th.column-heading-right { text-align: right; " number-header-font-info " }\n" diff --git a/src/report/report-system/html-table.scm b/src/report/report-system/html-table.scm index 8437b29e281..59b48022602 100644 --- a/src/report/report-system/html-table.scm +++ b/src/report/report-system/html-table.scm @@ -668,6 +668,7 @@ #f (gnc:html-table-col-styles table)) ;; render the headers + (push (gnc:html-document-markup-start doc "thead" #t)) (push (gnc:html-document-markup-start doc "tr" #t)) (for-each (lambda (hdr) @@ -685,6 +686,7 @@ colnum)))) ch) (push (gnc:html-document-markup-end doc "tr")) + (push (gnc:html-document-markup-end doc "thead")) ;; pop the col header style (gnc:html-document-pop-style doc)))) @@ -700,6 +702,7 @@ #f) #f (gnc:html-table-col-styles table)) + (push (gnc:html-document-markup-start doc "tbody" #t)) ;; now iterate over the rows (let ((rownum 0) (colnum 0)) (for-each @@ -749,6 +752,7 @@ (set! colnum 0) (set! rownum (+ 1 rownum)))) (reverse (gnc:html-table-data table)))) + (push (gnc:html-document-markup-end doc "tbody")) ;; write the table end tag and pop the table style (push (gnc:html-document-markup-end doc "table"))