IMPRIMIR UMA CONSULTA SQL

Private Sub cmdRecibo_Click()
    On Error GoTo Cancel
               
    With cdl
    
    
    Set data1.Recordset = db.OpenRecordset("Select Nome,Sum(Valor) As Soma From ContasReceber Where Nome = '" & txtNome.Text & "' And Atrasado = 'Sim' And Num_T = '" & txtNumT.Text & "' GROUP BY Nome ")
    
    .CancelError = True
    
    .ShowPrinter
    
    Paginicial = cdl.FromPage
    PagFinal = cdl.ToPage
    NumCopias = cdl.Copies
    
  For I = 1 To NumCopias
           
    Const Empresa = " Seapp - Contribuição "
    Const Rua = " Rua ,Dentista Barreto "
    Const Dados = " Fone (051) 1234 5678"
    Const Cit = " São Paulo - Sp - Tatuapé "
    Printer.Print Tab(35); String(80, "*"); 'Faz uma Linha
    Printer.Print Tab(57); Empresa
    Printer.Print Tab(35); String(80, "*")
    Printer.Print Tab(38); " São Paulo ,"; Format(Date, "dd/mm/yyyy");
    Printer.Print Tab(38); " Recebemos de "; txtNome.Text; " à  importà¢ncia "
    Printer.Print Tab(38); " de "; rsPront("Soma"); " ( "; Extenso(rsPront("Soma"), "Reais", "Real"); " )  "
    Printer.Print Tab(38); " referente a contribuição espontà¢nea de atendimento"
    Printer.Print Tab(38); " no SEAPP em "; DBGrid1.Columns(0)
    Printer.Print Tab(35); String(80, "*")
    Printer.Print Tab(38); Rua         'Centraliza Rua
    Printer.Print Tab(38); Cit         'Centraliza Cidade
    Printer.Print Tab(38); " CRP:"; "PJHº1198"
    Printer.Print Tab(35); String(80, "*")
  Next
    Printer.EndDoc
    End With
Exit Sub
Cancel:
 MsgBox " Impressão cancelada pelo usuário ! ", vbInformation, " Seapp - Atenção !"
 Err.Clear
End Sub