:: Home :: Products :: Technical Support :: About Us :: Contact Us
PDF Printer Driver, Convert to PDF, Print to PDF
Example 4: Stamp a PDF file with a PDF overlay (Delphi)  

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
  NVstamp : Variant;
  indx : Integer;
  retVal : Integer;
  NVstamp := CreateOLEObject('PDFstamp.Neevia');

  indx := NVstamp.CreateNewStamp;
  NVstamp.Stamps[indx].StampType := 3;
  NVStamp.Stamps[indx].Name := 'Stamp1';
  NVStamp.Stamps[indx].PDFOverlayFile := 'c:\overlay.pdf';
  NVStamp.Stamps[indx].X := 'center';
  NVStamp.Stamps[indx].Y := 'center';
  NVStamp.Stamps[indx].PlaceAs := 1;

  retVal := NVStamp.StampPDF('c:\in.pdf', 'c:\out.pdf');

  if retVal <> 0 then
    Application.MessageBox(PChar('Error code=' + IntToStr(retVal)),'',0)


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 © 2020 neeviaPDF.com Home | Products | Support | About Us | Contact Us