Dim AcroApp As Acrobat.AcroApp
Dim Part1Document As Acrobat.AcroPDDoc
Dim Part2Document As Acrobat.AcroPDDoc
Dim numPages As Integer
 
Set AcroApp = CreateObject("AcroExch.App")
Set Part1Document = CreateObject("AcroExch.PDDoc")
Set Part2Document = CreateObject("AcroExch.PDDoc")
 
DoCmd.OutputTo acOutputReport, "1_HEADER_RAPORU", acFormatPDF, CurrentProject.Path & "\PDF1.PDF", False
DoCmd.OutputTo acOutputReport, "2_DATA_RAPORU", acFormatPDF, CurrentProject.Path & "\PDF2.PDF", False
 
    Part1Document.Open CurrentProject.Path & "\pdf1.pdf"
    Part2Document.Open CurrentProject.Path & "\pdf2.pdf"
 
    numPages = Part1Document.GetNumPages()
 
    If Part1Document.InsertPages(numPages - 1, Part2Document, 0, Part2Document.GetNumPages(), True) = False Then
        MsgBox "Cannot insert pages"
    End If
 
    If Part1Document.Save(PDSaveFull, CurrentProject.Path & "\MergedFile.pdf") = False Then
        MsgBox "Cannot save the modified document"
    End If
 
    Part1Document.Close
    Part2Document.Close
 
    AcroApp.Exit
    Set AcroApp = Nothing
    Set Part1Document = Nothing
    Set Part2Document = Nothing
 
    MsgBox "Done"