pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Read PageLayout/PrintSettings in Excel2003/XML files.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7040 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-07-15 22:56:15 +00:00
parent b7e1b3fee8
commit 0051d96af6
2 changed files with 175 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
components/fpspreadsheet/examples/read_write/excelxmldemo/excelxmlread.lpr
View File

@@ -60,6 +60,36 @@ begin
else
WriteLn;
end;
WriteLn;
WriteLn('Printer settings/Page layout');
WriteLn(' Page width: ', worksheet.PageLayout.PageWidth:0:1, ' mm');
WriteLn(' Page height: ', worksheet.PageLayout.PageHeight:0:1, ' mm');
WriteLn(' Orientation: ', worksheet.PageLayout.Orientation);
WriteLn(' Left margin: ', worksheet.PageLayout.LeftMargin:0:1, ' mm');
WriteLn(' Right margin: ', worksheet.PageLayout.RightMargin:0:1, ' mm');
WriteLn(' Top margin: ', worksheet.PageLayout.TopMargin:0:1, ' mm');
WriteLn(' Bottom margin: ', worksheet.PageLayout.BottomMargin:0:1, ' mm');
WriteLn(' Header margin: ', worksheet.PageLayout.HeaderMargin:0:1, ' mm');
WriteLn(' Header text: ', worksheet.PageLayout.Headers[0]);
WriteLn(' Footer margin: ', worksheet.PageLayout.FooterMargin:0:1, ' mm');
WriteLn(' Footer text: ', worksheet.PageLayout.Footers[0]);
WriteLn(' Scaling factor: ', worksheet.PageLayout.ScalingFactor, ' %');
WriteLn(' Start page number: ', worksheet.PageLayout.StartPageNumber);
Write(' Options: ');
if (poPrintGridLines in worksheet.PageLayout.Options) then Write('GridLines ');
if (poMonochrome in worksheet.PageLayout.Options) then Write('Black&White ');
if (poDraftQuality in worksheet.PageLayout.Options) then Write('Draft ');
if (poPrintHeaders in worksheet.PageLayout.Options) then Write('Headers ');
if (poCommentsAtEnd in worksheet.Pagelayout.Options) then Write('CommentsAtEnd ');
if (poPrintCellComments in worksheet.PageLayout.Options) then Write('CellComments ');
if (poHorCentered in worksheet.PageLayout.Options) then Write('HorCentered ');
if (poVertCentered in worksheet.PageLayout.Options) then Write('VertCentered ');
if (poPrintPagesByRows in worksheet.PageLayout.Options) then Write('PagesByRows ');
if (poFitPages in worksheet.PageLayout.Options) then Write('FitPage' );
WriteLn;
WriteLn(' Fit height to pages: ', worksheet.Pagelayout.FitHeightToPages);
WriteLn(' Fit width to pages: ', worksheet.PageLayout.FitWidthToPages);
end;
finally