I have some macro code that is printing A/R Invoices to PDF files.

The code works fine on my laptop, but on the client workstation, it crashes.  Event Viewer identifies MSVCR120.DLL as the problem.

The OS and Excel versions are identical on the workstation compared to my laptop.

Has anyone run into this issue?  I've tried replacing the MSVCR120.DLL file with the one on my laptop, but no success.

This is the event viewer details:

Faulting application name: EXCEL.EXE, version: 16.0.8067.2115, time stamp: 0x5918bd78
Faulting module name: MSVCR120.dll, version: 12.0.21005.1, time stamp: 0x524f7ce6
Exception code: 0xc0000005
Fault offset: 0x000183f3
Faulting process id: 0x2054
Faulting application start time: 0x01d2dfac53345b53
Faulting application path: C:\Program Files (x86)\Microsoft Office\Root\Office16\EXCEL.EXE
Faulting module path: C:\WINDOWS\SYSTEM32\MSVCR120.dll
Report Id: 7dd1f81d-24b7-4627-b779-c823e5f4703a
Faulting package full name:
Faulting package-relative application ID:

Here is the code:

Dim rpt As AccpacCOMAPI.AccpacReport
Dim rptPrintSetup As AccpacCOMAPI.AccpacPrintSetup

Set rpt = mDBLinkCmpRW.Session.ReportSelect("ARDINVO[C:\Temp\Reports\InvoiceReport.rpt]", " ", " ")

Set rptPrintSetup = mDBLinkCmpRW.Session.GetPrintSetup(" ", " ")
rptPrintSetup.DeviceName = "Adobe PDF"
rptPrintSetup.OutputName = "Documents\*.pdf"
rptPrintSetup.Orientation = 1
rptPrintSetup.PaperSize = 1
rptPrintSetup.PaperSource = 15
rpt.PrinterSetup rptPrintSetup
rpt.SetParam "SELECTBY", "1" ' Report parameter: 9
rpt.SetParam "FROMCUST", " " ' Report parameter: 0
rpt.SetParam "TOCUST", "ZZZZZZZZZZZZ" ' Report parameter: 0
rpt.SetParam "FROMDOCNBR", " " ' Report parameter: 0
rpt.SetParam "TODOCNBR", "ZZZZZZZZZZZZZZZZZZZZZZ" ' Report parameter: 0
rpt.SetParam "FCURNDEC", "2" ' Report parameter: 0
rpt.SetParam "ADDR01", "123 Sample Company Plaza" ' Report parameter: 2
rpt.SetParam "ADDR02", " " ' Report parameter: 3
rpt.SetParam "ADDR03", " " ' Report parameter: 4
rpt.SetParam "ADDR04", " " ' Report parameter: 5
rpt.SetParam "CITY", "Any City" ' Report parameter: 6
rpt.SetParam "STATE", "Any Province" ' Report parameter: 7
rpt.SetParam "POSTAL", "12345" ' Report parameter: 8
rpt.SetParam "PRTOPER", "=" ' Report parameter: 0

rpt.SetParam "@SELECTION_CRITERIA", "{ARIBH.CNTBTCH} in " & CStr(Range("BatchNbr").Value) & " to " & CStr(Range("BatchNbr").Value) & " and {ARIBH.CNTITEM} in " & CStr(Range("EntryNbr").Value) & " to " & CStr(Range("EntryNbr").Value) & " and {ARIBH.ERRBATCH} = 0 and {ARIBH.ERRENTRY} = 0 and ({ARIBH.SWPRTINVC} = 1 or {ARIBH.SWPRTINVC} = 0) and {ARCUS.DELMETHOD} = 2 and {ARCUS.CATEGORY} = 0 " ' Report parameter: 0

rpt.SetParam "FROMBATCH", CStr(Range("BatchNbr").Value) ' Report parameter: 0
rpt.SetParam "TOBATCH", CStr(Range("BatchNbr").Value) ' Report parameter: 0
rpt.SetParam "FROMENTRY", CStr(Range("EntryNbr").Value) ' Report parameter: 0
rpt.SetParam "TOENTRY", CStr(Range("EntryNbr").Value) ' Report parameter: 0
rpt.NumOfCopies = 1
rpt.Destination = PD_FILE
rpt.Format = PF_PDF
rpt.PrintDir = Range("InvoicePath").Value & "\Invoices\" & Selection.Offset(0, 7)
rpt.PrintReport            <-- This is where it crashes

Thank you