매크로로 만든 PDF를 출력 시 출력물에 이상 발생

Set app = CreateObject("Acroexch.app")
Set primaryDoc = CreateObject("AcroExch.PDDoc")
 
'실제 파일에서는 해당 구문이 많이 반복되어 여러 PDF를 만듬
wkFile지수.Worksheets("총괄K").PrintOut Copies:=1, Collate:=True, _
                ActivePrinter:=Application.ActivePrinter, PrintToFile:=True, PrToFileName:=ThisWorkbook.Path & "\PDF\Page" & PDF_Count & ".pdf"
 
'Combine_PDF라는 PDF를 합칠 파일을 지정함
Combine_PDF = ThisWorkbook.Path & "\PDF\" & Get_FileName
OK = primaryDoc.Open(Combine_PDF)
 
    If Not OK Then
        MsgBox "표지 파일이 제대로 생성되었는지 확인해 주십시오." & Chr(13) & "표지 PDF를 생성하는 경로 확인 필요", vbExclamation + vbOKOnly, Title:="PDF 합치기 오류"
    Else
        'PDF를 합칠 목록들을 순회하며 PDF를 합침.
        For FileIndex = 1 To UBound(Files)
 
            DoCounter = 0
            Do
                DoEvents
                DoCounter = DoCounter + 1
            Loop Until DoCounter = 5000
 
            If Files(FileIndex) <> "" Then
                numPages = primaryDoc.GetNumPages() - 1
 
                Set sourceDoc = CreateObject("AcroExch.PDDoc")
                OK = sourceDoc.Open(Files(FileIndex))
                If Not OK Then
                    MsgBox "Page " & FileIndex & "에서 오류가 발생하여" & Chr(13) & "PDF합치기 프로그램이 정상적으로 작동하지 않았습니다." & Chr(13) & "다시 시도해 주세요", vbExclamation + vbOKOnly, Title:="PDF 합치기 오류"
                    Exit For
                End If
 
                numberOfPagesToInsert = sourceDoc.GetNumPages
 
                OK = primaryDoc.InsertPages(numPages, sourceDoc, 0, numberOfPagesToInsert, False)
                If Not OK Then
                    MsgBox "Page " & FileIndex & "에서 오류가 발생하여" & Chr(13) & "PDF합치기 프로그램이 정상적으로 작동하지 않았습니다." & Chr(13) & "다시 시도해 주세요", vbExclamation + vbOKOnly, Title:="PDF 합치기 오류"
                    Exit For
                End If
 
                OK = primaryDoc.Save(PDSaveFull, Combine_PDF)
                If Not OK Then
                    MsgBox "Page " & FileIndex & "에서 오류가 발생하여" & Chr(13) & "PDF합치기 프로그램이 정상적으로 작동하지 않았습니다." & Chr(13) & "다시 시도해 주세요", vbExclamation + vbOKOnly, Title:="PDF 합치기 오류"
                    Exit For
                End If
 
                Set sourceDoc = Nothing
            End If
        Next
    End If

Dim myNet As Object
Dim cPrint As Long
Dim PrinterName As String: PrinterName = "Microsoft Print to PDF"
 
Set myNet = CreateObject("WScript.Network")
 
cPrint = myNet.enumprinterconnections.Count
 
On Error Resume Next
 
For i = 1 To cPrint
    Application.ActivePrinter = "Ne" & Format(i, "00") & ":에 있는 " & PrinterName
    If Application.ActivePrinter = "Ne" & Format(i, "00") & ":에 있는 " & PrinterName Then Exit For
Next