



Collapse All
Syntax| HRESULT DrawPageOnPage ( LONG srcPageIndex, LONG destPageIndex, FLOAT left, FLOAT top, FLOAT width, FLOAT height ) |
Remarks
Example{ PDF object is supposed to be created }
{ PDF file contains 4 pages A4}
PDF.Open('4pagesA4.pdf', '');
PDF.NewPage;
PDF.PageSize := pfA4; { set any page size here }
PDF.CurrentPage := 4; { index of new page }
height := PDF.PageHeight;
width := PDF.PageWidth;
PDF.DrawPageOnPage(0, 4, 0.0, 0.0, width/2, height/2);
PDF.DrawPageOnPage(1, 4, width/2, 0.0, width/2, height/2);
PDF.DrawPageOnPage(2, 4, 0.0, height/2, width/2, height/2);
PDF.DrawPageOnPage(3, 4, width/2, height/2, width/2, height/2);
PDF.SaveToFile('result.pdf', true);
// PDF object is supposed to be created
// PDF file contains 4 pages A4
PDF->Open("4pagesA4.pdf", "");
PDF->NewPage();
PDF->PageSize = pfA4; // set any page size here
PDF->CurrentPage = 4; // index of new page
long height = PDF->PageHeight;
long width = PDF->PageWidth;
PDF->DrawPageOnPage(0, 4, 0.0, 0.0, width/2, height/2);
PDF->DrawPageOnPage(1, 4, width/2, 0.0, width/2, height/2);
PDF->DrawPageOnPage(2, 4, 0.0, height/2, width/2, height/2);
PDF->DrawPageOnPage(3, 4, width/2, height/2, width/2, height/2);
PDF->SaveToFile("result.pdf", true);
// PDF object is supposed to be created
// PDF file contains 4 pages A4
PDF.Open("4pagesA4.pdf", "");
PDF.NewPage();
PDF.PageSize = pfA4; // set any page size here
PDF.CurrentPage = 4; // index of new page
long height = PDF.PageHeight;
long width = PDF.PageWidth;
PDF.DrawPageOnPage(0, 4, 0.0, 0.0, width/2, height/2);
PDF.DrawPageOnPage(1, 4, width/2, 0.0, width/2, height/2);
PDF.DrawPageOnPage(2, 4, 0.0, height/2, width/2, height/2);
PDF.DrawPageOnPage(3, 4, width/2, height/2, width/2, height/2);
PDF.SaveToFile("result.pdf", true);
' PDF object is supposed to be created ' PDF file contains 4 pages A4 PDF.Open "4pagesA4.pdf", "" PDF.NewPage PDF.PageSize = pfA4 ' set any page size here PDF.CurrentPage = 4 ' index of new page height = PDF.PageHeight width = PDF.PageWidth PDF.DrawPageOnPage 0, 4, 0.0, 0.0, width/2, height/2 PDF.DrawPageOnPage 1, 4, width/2, 0.0, width/2, height/2 PDF.DrawPageOnPage 2, 4, 0.0, height/2, width/2, height/2 PDF.DrawPageOnPage 3, 4, width/2, height/2, width/2, height/2 PDF.SaveToFile "result.pdf", true
See Also