diff --git a/components/fpspreadsheet/source/common/xlsxooxml.pas b/components/fpspreadsheet/source/common/xlsxooxml.pas
index 0bf4decea..938fa310e 100644
--- a/components/fpspreadsheet/source/common/xlsxooxml.pas
+++ b/components/fpspreadsheet/source/common/xlsxooxml.pas
@@ -3092,8 +3092,9 @@ begin
AppendToStream(AStream, Format(
'', [n, n]));
for i := 0 to sheet.Cols.Count - 1 do
- AppendToStream(AStream, Format(
- '', [PCol(sheet.Cols[i])^.Col]));
+ if (croPageBreak in PCol(sheet.Cols[i])^.Options) then
+ AppendToStream(AStream, Format(
+ '', [PCol(sheet.Cols[i])^.Col]));
AppendToStream(AStream,
'');
end;
@@ -3559,8 +3560,9 @@ begin
AppendToStream(AStream, Format(
'', [n, n]));
for i := 0 to sheet.Rows.Count - 1 do
- AppendToStream(AStream, Format(
- '', [PRow(sheet.Rows[i])^.Row]));
+ if (croPageBreak in PRow(sheet.Rows[i])^.Options) then
+ AppendToStream(AStream, Format(
+ '', [PRow(sheet.Rows[i])^.Row]));
AppendToStream(AStream,
'');
end;