I'm trying to create a macro to print/save all my open G/L batches at the end of each month. I want the file name for each batch to be the G/L batch description and batch number.
I'm having a problem getting the file name right - I'm not including the two fields properly.
I'm also having trouble looping it to increment to the next open G/L batch. Does anyone have existing code that does this?
Here is what I have so far:

Sub MainSub()
'

'

On Error GoTo ACCPACErrorHandler

' TODO: To increase efficiency, comment out any unused DB links.
Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkCmpRW = OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)

Dim mDBLinkSysRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkSysRW = OpenDBLink(DBLINK_SYSTEM, DBLINK_FLG_READWRITE)

Dim temp As Boolean
Dim GLBCTU1 As AccpacCOMAPI.AccpacView
Dim GLBCTU1Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView "GL0032", GLBCTU1
Set GLBCTU1Fields = GLBCTU1.Fields

GLBCTU1.Init
Dim rpt As AccpacCOMAPI.AccpacReport
Set rpt = ReportSelect("GLBCHL01", " ", " ")
Dim rptPrintSetup As AccpacCOMAPI.AccpacPrintSetup
Set rptPrintSetup = GetPrintSetup(" ", " ")
rptPrintSetup.DeviceName = "KONICA MINOLTA 423SeriesPCL"
rptPrintSetup.OutputName = "192.168.1.249"
rptPrintSetup.Orientation = 10
rptPrintSetup.PaperSize = 300
rptPrintSetup.PaperSource = 7
rpt.PrinterSetup rptPrintSetup
rpt.SetParam "FRBATCH", "002608" ' Report parameter: 2
rpt.SetParam "TOBATCH", "002608" ' Report parameter: 3
rpt.SetParam "FRLDGR", "AP" ' Report parameter: 4
rpt.SetParam "TOLDGR", "UP" ' Report parameter: 5
rpt.SetParam "FRDATE", "20200617" ' Report parameter: 6
rpt.SetParam "TODATE", "20200617" ' Report parameter: 7
rpt.SetParam "TYPES", "Entered, Subledger, Imported, Generated, Recurring" ' Report parameter: 8
rpt.SetParam "STATUS", "Open" ' Report parameter: 9
rpt.SetParam "QUERY", " AND GLBCTL.BATCHTYPE IN ('1','2','3','4','5') AND GLBCTL.BATCHSTAT IN ('1')" ' Report parameter: 14
rpt.SetParam "FCURNDEC", "2" ' Report parameter: 10
rpt.SetParam "PRINTED", "1" ' Report parameter: 15
rpt.SetParam "USEGS", "0" ' Report parameter: 16
rpt.SetParam "USER", "NOELLE" ' Report parameter: 17
rpt.SetParam "OPTIONALFIELDS", "0" ' Report parameter: 18
rpt.SetParam "ICTINSTALLED", "0" ' Report parameter: 19
rpt.SetParam "ICTMULTI", "0" ' Report parameter: 20
rpt.SetParam "INCLDETAILS", "3" ' Report parameter: 21
rpt.SetParam "DATECATEGORY", "0" ' Report parameter: 22
rpt.NumOfCopies = 1

rpt.Destination = PD_FILE
rpt.Format = PF_PDF
rpt.PrintDir = "\\PDC2\sage docs\" + "GLBCTL.BTCHDESC" + " -GLBCTL.BATCHID" + ".pdf"
rpt.PrintReport