mergefiles, size not correct

Author

Message

Topic Search

Topic Options

mazluta

Beginner

Joined: 21 Jun 12
Location: Israel
Status: Offline
Points: 17

Post Options

Post Reply

Quote mazluta

Report Post

Thanks(0)

Quote

Topic: mergefiles, size not correct
Posted: 22 Dec 18 at 9:38AM

Thanks.

i will check his code

Ingo

Members Profile

Find Members Posts

Moderator Group

Joined: 29 Oct 05
Status: Offline
Points: 3524

Post Options

Post Reply

Quote Ingo

Report Post

Thanks(0)

Quote

Posted: 09 Dec 18 at 2:48PM

Hi,

a single SetPageSize('A4') doesn't change an existing pdf-file to be from now on A4.
Yes. There is a way but it's not as easy as you think it is ;-)
You have to create a new A4 pdf... reading the old stuff to be changed... caputure it to the new A4 pdf...
The code from PeterL could feed your needs (he had a problem with it but this isn't a problem for you):
http://www.quickpdf.org/forum/change-papersize-on-existing-pdf_topic3284.html

Cheers,
Ingo

mazluta

Members Profile

Find Members Posts

Beginner

Joined: 21 Jun 12
Location: Israel
Status: Offline
Points: 17

Post Options

Post Reply

Quote mazluta

Report Post

Thanks(0)

Quote

Posted: 07 Dec 18 at 9:13PM

Ok, the problem not in the merge :)

the first file is set to 34" (in) insted of 8.5~ (A4).

is there a way to set the secend merged file to be with the same size of the firsr file?

mazluta

Members Profile

Find Members Posts

Beginner

Joined: 21 Jun 12
Location: Israel
Status: Offline
Points: 17

Post Options

Post Reply

Quote mazluta

Report Post

Thanks(0)

Quote

Posted: 07 Dec 18 at 8:43PM

ii use this code to merge 2 file

1 with 2 pages

secend with 1 page

PDFLibrary := TQuickPDF.Create;

Try

UnlockResult := PDFLibrary.UnlockKey(edtLicenseKey);

if UnlockResult <> 1 then

Exit;

Rslt := PDFLibrary.MergeFiles(InputFile_1,InputFile_2,DstFileName);

Result := (Rslt = 1);

Finally

FreeAndNil(PDFLibrary);

End;

the last page mearge dose not seem as A4 size page...

i tryed add

//PDFLibrary.SetOrigin(1);

//PDFLibrary.SetMeasurementUnits(1);

//PDFLibrary.SetPageSize('A4');

// 0 = No compression

// 1 = Flate compression

//PDFLibrary.CompressImages(1);

any combenition, no help.

how can i force QuickPDF to set the merge file as the size of the source one?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
mazluta Members Profile Find Members Posts Beginner Joined: 21 Jun 12 Location: Israel Status: Offline Points: 17	Post Options Post Reply Quote mazluta Report Post Thanks(0) Quote Reply Topic: mergefiles, size not correct Posted: 22 Dec 18 at 9:38AM
	Thanks. i will check his code

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3524	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 09 Dec 18 at 2:48PM
	Hi, a single SetPageSize('A4') doesn't change an existing pdf-file to be from now on A4. Yes. There is a way but it's not as easy as you think it is ;-) You have to create a new A4 pdf... reading the old stuff to be changed... caputure it to the new A4 pdf... The code from PeterL could feed your needs (he had a problem with it but this isn't a problem for you): http://www.quickpdf.org/forum/change-papersize-on-existing-pdf_topic3284.html
	Cheers, Ingo

mazluta Members Profile Find Members Posts Beginner Joined: 21 Jun 12 Location: Israel Status: Offline Points: 17	Post Options Post Reply Quote mazluta Report Post Thanks(0) Quote Reply Posted: 07 Dec 18 at 9:13PM
	Ok, the problem not in the merge :) the first file is set to 34" (in) insted of 8.5~ (A4). is there a way to set the secend merged file to be with the same size of the firsr file?

mazluta Members Profile Find Members Posts Beginner Joined: 21 Jun 12 Location: Israel Status: Offline Points: 17	Post Options Post Reply Quote mazluta Report Post Thanks(0) Quote Reply Posted: 07 Dec 18 at 8:43PM
	ii use this code to merge 2 file 1 with 2 pages secend with 1 page PDFLibrary := TQuickPDF.Create; Try UnlockResult := PDFLibrary.UnlockKey(edtLicenseKey); if UnlockResult <> 1 then Exit; Rslt := PDFLibrary.MergeFiles(InputFile_1,InputFile_2,DstFileName); Result := (Rslt = 1); Finally FreeAndNil(PDFLibrary); End; the last page mearge dose not seem as A4 size page... i tryed add //PDFLibrary.SetOrigin(1); //PDFLibrary.SetMeasurementUnits(1); //PDFLibrary.SetPageSize('A4'); // 0 = No compression // 1 = Flate compression //PDFLibrary.CompressImages(1); any combenition, no help. how can i force QuickPDF to set the merge file as the size of the source one?