Can't merge two pdfs

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Trying to merge two single page pdf files of the same type into 1 pdf file with two pages. 

Once merged, data from page 1 is showing up on partially on page 2. If you look at the pdf files individually they are fine. 

I've tried opening the docs, flattening the fields and resaving the files to new names but still have the same problem.

I've tried mergefiles, mergefilelist and mergefilelistfast, all with the same results. 

Anyone know how to resolve the issue?

I have sample docs and code if anyone wants me to send them.

Thanks, Mark

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
hoogie76 Members Profile Find Members Posts Beginner Joined: 05 May 09 Location: United States Status: Offline Points: 1	Post Options Post Reply Quote hoogie76 Report Post Thanks(0) Quote Reply Topic: Can't merge two pdfs Posted: 05 May 09 at 2:23PM
	Trying to merge two single page pdf files of the same type into 1 pdf file with two pages. Once merged, data from page 1 is showing up on partially on page 2. If you look at the pdf files individually they are fine. I've tried opening the docs, flattening the fields and resaving the files to new names but still have the same problem. I've tried mergefiles, mergefilelist and mergefilelistfast, all with the same results. Anyone know how to resolve the issue? I have sample docs and code if anyone wants me to send them. Thanks, Mark

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3529	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 06 May 09 at 1:51AM
	Hi Mark! Where can we find the two files and where is the result? What's about your relevant code part in this case? Perhaps it's possible for you to load them anywhere up and post the links here. Then we can see ... Here is a sample about how to merge two files: QP := TQuickPDF712.Create; try QP.UnlockKey('MyKey'); fa1 := FileGetAttr(Trim(starting_file)); FileSetAttr(Trim(starting_file), faArchive); QP.LoadFromFile(starting_file); QP.Unencrypt; msd := QP.SelectedDocument; fa2 := FileGetAttr(Trim(next_file)); FileSetAttr(Trim(next_file), faArchive); QP.LoadFromFile(next_file); QP.Unencrypt; md0 := QP.SelectedDocument; QP.SelectDocument(msd); QP.MergeDocument(md0); QP.SetInformation(0,'1.4'); //erforderliche PDF-Version QP.SetInformation(5,'My Super App'); //Creator QP.SetInformation(6,'The fantastic QuickPDF'); //Producer QP.SaveToFile(The_new_file); finally QP.RemoveDocument(msd); FileSetAttr(Trim(starting_file), fa1); FileSetAttr(Trim(next_file), fa2); QP.Free; end; Cheers, Ingo