この例は、ソースドキュメントのページ番号 5 を現在のドキュメントのページ番号 0 にコピーする方法を示しています。

var

DestDoc, SourceDoc: THotPDF;

begin

SourceDoc := THotPDF.Create( nil );

try

SourceDoc.LoadFromFile( 'SourceDoc.pdf' );

DestDoc := THotPDF.Create(nil);

try

DestDoc.File名前 := ( 'DestDoc.pdf' );

DestDoc.BeginDoc;

DestDoc.CopyPageFromDocument( SourceDoc, 5, 0 ); // ソースドキュメントのページ番号 5 を現在のドキュメントのページ番号 0 にコピーします

DestDoc.EndDoc;

finally

DestDoc.Free;

end;

finally

SourceDoc.Free;

end;

end;