Printing macro where the tray selection doesn't work

I have a client that i upgraded from Sage 300 v2014 to Sage 300 v2022.  They have some macros where some of them needed some minor changes.

One of them prints a bunch of forms and they print them to different trays of the printer based on a screen selection.

Same printer, Lexmark.  I looked at the code and stepped thru it and it assigned the tray codes as designed but all the forms print to tray 1.

Did the printer setup code in VBA change between these versions?

What is the latest printer code?

Latest in macro

Set rpt = ReportSelect(c_ORDENTSUM, " ", " ")
Set rptPrintSetup = GetPrintSetup(" ", " ")

For i = 1 To 4
If aOrdEntSum(i) <> 0 Then
Call RptDeviceSettings(rpt, rptPrintSetup, i)
rpt.SetParam "OrderNumber", strOrdNo
rpt.NumOfCopies = aOrdEntSum(i)
rpt.PrintReport
End If
Next i

This is the Call RptDeviceSettings below:

rptPrintSetup.PaperSource = i

Any and all help appreciated,

Dana