HRESULT DrawPageOnPage ( LONG srcPageIndex, LONG destPageIndex, FLOAT left, FLOAT top, FLOAT width, FLOAT height ) |
{ 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