2
$\begingroup$

I have a set of pdfs in a folder, named: 1.pdf,2.pdf,3.pdf,...,20.pdf

Is it possible for mathematica to merge them to one pdf ? If yes, how ?

I had a look at this answer, but I don't really understand how to use it for my case: Combine multiple PDF files into one document

This is what I tried: I import the PDS:

pages = Import[ToString[#] <> ".pdf"] & /@ Range[20];

Then I use the code provided in the linked question:

Export["test.pdf", CreateDocument[ Riffle[Join[pages, pages], Cell["", "PageBreak", PageBreakBelow -> True]], Visible -> False]]

but the result is that the "comma" is still visible next to each pdf and the pdf pages have been shrinked down by quiet a lot. ... and instead of being 20 pages, it is now 40 pages, each pdf page was printed twice.

enter image description here

Improve this question
$\endgroup$
5
  • 5
    $\begingroup$ This feels like one of those cases where you should be using something else (e.g. pdftk). $\endgroup$ Commented Oct 27, 2017 at 12:31
  • $\begingroup$ @Kuba Please have a look at my updated question $\endgroup$ Commented Oct 27, 2017 at 12:48
  • $\begingroup$ Riffle[ Join @@ pages, Cell["", "PageBreak", PageBreakBelow -> True]. Notice that original pages were from one pdf, you have an array. $\endgroup$ Commented Oct 27, 2017 at 13:01
  • $\begingroup$ @Kuba Thanks ! Now its 20 pages ! But it is still shrinked down, like in the image. $\endgroup$ Commented Oct 27, 2017 at 14:14
  • $\begingroup$ you may try the accepted solution at mathematica.stackexchange.com/questions/31780/…, where the myList variable should be Flatten[pages] here $\endgroup$ Commented Oct 27, 2017 at 16:17

0

Reset to default

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.