Com a dica do nosso amigo treze eu fez assim

    Dim SQL(10) As String

    Dim Placa(10) As String

    Dim F

        For F = 0 To 9

        If rsPla.State = 1 Then rsPla.Close

            SQL(F) = "SELECT * FROM placas WHERE Right(pla_pla,1)='" & F & "' and pla_pla order by pla_pla"

            rsPla.Open SQL(F), cnSQL, adOpenDynamic, adLockOptimistic

            While Not rsPla.EOF

                Placa(F) = Placa(F) & Format(rsPla!pla_pla, "@@@-@@@@") & " | "

                frmImprimir.txtFinal_1(F).Text = "| " & Placa(F)

                rsPla.MoveNext

            Wend

        Next F

    frmImprimir.Show vbModal

Crie um formulários com 10 text com nomes txtFinal(0), txtFinal (1)...... txtFinal(9)

E coloquei eles assim

txtFinal(1)

.....

....

txtFinal(0)

dois comando

Private Sub cmdRenonar_Click()

    Unload Me

End Sub

Private Sub Command1_Click()

    Command1.Visible = False

    cmdRenonar.Visible = False

    frmImprimir.PrintForm

    cmdRenonar.Visible = True

    Unload Me

End Sub

Private Sub Form_Load()

'    frmImprimir.PrintForm

'    Unload Me

End Sub

ele imprimi assim

AAA-0001 | BBB-0001 |.......

AAA-0002 | BBB-0002 |.......

....

....

AAA-0009 | BBB-0009 |.....