Output many output of one worksheet in to 1 file pdf

[Enzolino]

Hello !
How can I save a print area with various
processing step in a single PDF file?

Example

Worksheets("example1").PageSetup.PrintArea = "A1:A6"

For T = 1 to 6
Range ("A3"). Value = range ("A1") * t
' -----------------------------------------
'create PDF page from excel print area
' -----------------------------------------
next
'---------------------------------
'save PDF file (1 file - 6 pages)
' ---------------------------------


This Code

ActiveSheet.ExportAsFixedFormat _
Type: = xlTypePDF, Filename: = _
NomeFile, Quality: = xlQualityStandard, _
IncludeDocProperties: = True, _
IgnorePrintAreas: = False, OpenAfterPublish: = True

create only one PDF file, but for the single worksheet.

The pages are not created.

Sorry for my English!

I don't want to print 6 PDF files in a PDF printer to get 1 single file

[Kenneth Hobson]

There are two methods.

1. Create each worksheet as a pdf file and then use a 3rd party application to merge all pdfs. The last part can be in your code after the pdf file creation code. One uses Shell() and passes the inputs to the application. I have used pdf24 for things like that where I created a multi-tif file. Obviously, pdfs are its thing so merging pdfs with it or similar applications is easy.

2. Macro would create a scratch workbook and copy the sheet however many times needed. It would then make your changes or make change before the copy. An array of sheet names in that workbook would then merge all of those worksheets into one pdf. After job is done, the scratch workbook is closed and not saved.

I use (2) when I want to make a multi-page pdf but want a specific page/worksheet order. This is because the array of worksheet names method exports in worksheet index order rather than array element index order.

Here is method (2) without the scratch workbook.

Please Login or Register  to view this content.