:: Home :: Products :: Technical Support :: About Us :: Contact Us
PDF Printer Driver, Convert to PDF, Print to PDF
Example 3: Resize a specified page in a PDF file (Delphi)  

   uses ComObj;
      .....

   procedure TForm1.Button1Click(Sender: TObject);
   var
     NVresize : Variant;
     retVal : Integer;
   begin
     NVresize := CreateOleObject('PDFresize.Neevia');

     NVresize.PageWidth := 5; // page width = 5 inches
     NVresize.PageHeight := 10; // page height = 10 inches
     NVresize.Units := 1; // measurement units = inches

     NVresize.Scale := true; // scale page
     NVresize.ConstrainProportions := true; // constrain proportions when scaling

     NVresize.Center := true; // center page content

     NVresize.Pages := '1'; // resize the first page of the PDF
  
     retVal := NVresize.ResizePDF('c:\in.pdf', 'c:\out.pdf');
     if retVal <> 0 then
       Application.MessageBox(PChar('Error code=' + IntToStr(retVal)),'',0)
     else
       Application.MessageBox('Done','',0);
   end;


I find PDFresize to be an easy application to use especially when resizing batches of PDF files from separate folders. Thank you also for providing fast and effective customer support!

Bruno Verbeck

If you have any comments or suggestions about our web site, please feel free to email them to

Copyright © 2018 neeviaPDF.com Home | Products | Support | About Us | Contact Us