Merging the Exported pdf files with same starting names

[vipulgos]

I am having a code which allows me to export different pages of my report, which requires to get printed in Colour Print and some pages required to print on Black and White
Code runs like this:

Worksheets("Part-1").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    FileName:=Path & "Col_Part_1", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False


    Worksheets("Part-4").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    FileName:=Path & "Col_Part_4", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False

Worksheets(Array("Part-1", "Part-2", "Part-3", "Decla", "Cond")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    FileName:=Path & "B&W_P2_to", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, From:=2, To:=6, OpenAfterPublish:=False
    
Sheets("RR").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    FileName:=Path & "B&W_RR", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False

Now I want to merge all files which are having file name start by Col with name like to print in colour
and want to merge all files which are having file name start by B&W with name like to print in b&w

Please guide me how to do this

 

[John_w]

You could merge the PDFs with the PDFtk Server command line tool called from VBA.

The Merge_PDFs routine in the following macro merges all the PDF files in a folder to a single PDF:

VBA Export diferent excel files to pdf and then combine them to one file

Hi, I know little of this, wondering if someone could help me. I 'm trying to create something like this thread Append to pdf VBA I've been searching for something like this, but just for one subfolder. How can i use this routine, but calling it inside another routine (let's say main...

www.mrexcel.com

To create the 2 output merged PDFs changes to the code would include 2 Dir function loops to match Col*.pdf and B&W*.pdf files:

PDFfile = Dir(PDFfolder & "Col*.pdf")

PDFfile = Dir(PDFfolder & "B&W*.pdf")