|
Este ejemplo muestra cómo copiar la página número 5 del documento de origen a la página número 0 del documento actual var DestDoc, SourceDoc: THotPDF; begin SourceDoc := THotPDF.Create( nil ); try SourceDoc.LoadFromFile( 'SourceDoc.pdf' ); DestDoc := THotPDF.Create(nil); try DestDoc.FileName := ( 'DestDoc.pdf' ); DestDoc.BeginDoc; DestDoc.CopyPageFromDocument( SourceDoc, 5, 0 ); // Copia la página número 5 del documento de origen a la página número 0 del documento actual DestDoc.EndDoc; finally DestDoc.Free; end; finally SourceDoc.Free; end; end; |