Here's some sample code that should get you moving in the right direction should you want to explore the COM API_Note - teh SQL calls are direct.  You can instead use view CS0120 (see sample below):

Private Sub cmdMakePDFs_Click()

Dim strRecords As Integer
Dim strYear As String
Dim strSQL As String
Dim strWhere As String
Dim strVendName As String
Dim strVendorID As String
Dim strRecNumber As Integer

Dim rpt As AccpacCOMAPI.AccpacReport
Set rpt = mAS.ReportSelect("APCPRST4A[APCPRST4A.RPT]", " ", " ")

Dim rptPrintSetup As AccpacCOMAPI.AccpacPrintSetup
Set rptPrintSetup = mAS.GetPrintSetup(" ", " ")

rptPrintSetup.DeviceName = ""
rptPrintSetup.OutputName = "USB001"
rptPrintSetup.Orientation = 1
rptPrintSetup.PaperSize = 1
rptPrintSetup.PaperSource = 7
rpt.PrinterSetup rptPrintSetup

'---------------------------------------------------
' Loop through table and make a pdf for each record
'---------------------------------------------------

Set cnCBINDA = New ADODB.Connection

cnCBINDA.Open strSQLConCBINDA

strYear = Me.txtYear

strSQL = "SELECT * FROM APCCS_YEAR"
strWhere = " WHERE APCCS_YEAR.CNTYEAR = " & strYear & ""

Set rsCBINDA = New ADODB.Recordset

rsCBINDA.Open strSQL & strWhere & "", cnCBINDA, adOpenKeyset, adLockReadOnly
strRecords = rsCBINDA.RecordCount

strRecNumber = 0

Do While rsCBINDA.EOF = False
strVendName = UCase(Trim(rsCBINDA.Fields("VENDNAME")))
strVendorID = Trim(rsCBINDA.Fields("VENDORID"))

strRecNumber = strRecNumber + 1

Me.Caption = "Processing " & strRecNumber & " of " & strRecords & " T4As"

'----------------------
' New
'----------------------
rpt.SetParam "YEAR", Me.txtYear ' Report parameter: 5
rpt.SetParam "FEDID", "106844053 RP0001" ' Report parameter: 5
rpt.SetParam "VENDORID", strVendorID ' Report parameter: 5

rpt.NumOfCopies = 1
rpt.Destination = AccpacCOMAPI.tagPrintDestinationEnum.PD_FILE
rpt.Format = AccpacCOMAPI.tagPrintFormatEnum.PF_PDF
rpt.PrintDir = Me.txtPath & "\" & strVendName & "_" & txtYear & ".pdf"

rpt.PrintReport

rsCBINDA.MoveNext
Loop

rsCBINDA.Close

MsgBox "T4A File creation complete", vbInformation, "Create PDF"

Me.Caption = "T4A file creation complete"

End Sub

CS0120 code:

Dim viewCSQRY2 As AccpacCOMAPI.AccpacView
Dim viewCSQRY2Fields As AccpacCOMAPI.AccpacViewFields
DBLnk.OpenView "CS0120", viewCSQRY2
Set viewCSQRY2Fields = viewCSQRY2.Fields

viewCSQRY2.Browse strSQLQuery, True
viewCSQRY2.InternalSet (256)

Do While viewCSQRY2.Fetch = True

  Do Stuff

Loop

Thanks for the sample code. A few questions here:

1. On this line: Set rptPrintSetup = mAS.GetPrintSetup(" ", " "), where does mAS come from. I don't see any declarations in your sample. Or am I missing something?

2. In my code, AccpacCOMAPI.AccpacPrintSetup has no GetPrintSetup method. Could it be that I don't have the right version of the COMAPI?

3. I also don't see a method for ReportSelect. Maybe the same as the previous point (wrong version of COMAPI)?

Thanks for the sample code. A few questions here:

1. On this line: Set rptPrintSetup = mAS.GetPrintSetup(" ", " "), where does mAS come from. I don't see any declarations in your sample. Or am I missing something?

2. In my code, AccpacCOMAPI.AccpacPrintSetup has no GetPrintSetup method. Could it be that I don't have the right version of the COMAPI?

3. I also don't see a method for ReportSelect. Maybe the same as the previous point (wrong version of COMAPI)?

Nevermind... I am supposed to open a session first. My bad. It's been a tough journey