Eu tenho o seguinte código:
Private Sub cmdImprimir_Click()
Dim m_NOME As String
Dim m_PAGAMENTO As String
Dim m_DESCRICAO As String
Dim m_VENCIMENTO As String
Dim m_VALOR As String
Dim Linha As String
If MsgBox("Iniciar Impressão?", 36, "Aviso do Sistema") = 7 Then
Exit Sub
End If
Linha = 1
Data1.DatabaseName = (App.Path & "\cyberbase.mdb")
Data1.RecordSource = "SELECT CLIENTE.CODIGO, CLIENTE.NOME, PARCELAS.* FROM CLIENTE INNER JOIN PARCELAS ON CLIENTE.CODIGO = PARCELAS.CODIGO_ALUNO WHERE PARCELAS.CODIGO_ALUNO = " & txtCodAluno.Text & " AND (STATUS = " & cboStatus.Text & ")"
Data1.Refresh
Printer.FontName = "Arial"
Printer.FontSize = 8
Do While Not Data1.Recordset.EOF = True
If Linha = 1 Then
Cabeçalho
End If
m_NOME = Data1.Recordset.Fields("NOME")
m_PAGAMENTO = Data1.Recordset.Fields("PAGAMENTO")
m_DESCRICAO = Data1.Recordset.Fields("DESCRICAO")
m_VENCIMENTO = Data1.Recordset.Fields("VENCIMENTO")
m_VALOR = Data1.Recordset.Fields("VALOR")
Printer.CurrentX = 130
Printer.Print Tab(3); m_NOME;
Printer.Print Tab(60); m_PAGAMENTO;
Printer.Print Tab(80); m_DESCRICAO;
Printer.Print Tab(100); m_VENCIMENTO;
Printer.Print Tab(120); Format(m_VALOR, "R$ #,##0.00;(R$ #,##0.00)")
Linha = Linha + 1
Data1.Recordset.MoveNext
If Linha >= 80 Then
Printer.NewPage
Linha = 1
End If
Loop
Printer.EndDoc
Quando é impresso aparece assim:
NOME PAGAMENTO DESCRIÇÃO VENCIMENTO VALOR
=============================================================
RAIMUNDO 28/01/04 MATRICULA 15/01/04 R$ 10,00
RAIMUNDO 14/02/04 FEVEREIRO 15/02/04 R$ 30,00
RAIMUNDO 15/03/04 MARÇO 15/03/04 R$ 30,00
RAIMUNDO 17/04/04 ABRIL 15/04/04 R$ 30,00
e eu queria que aparecesse assim:
RAIMUNDO
===============================================================
PAGAMENTO DESCRIÇÃO VENCIMENTO VALOR
===============================================================
28/01/04 MATRICULA 15/01/04 R$ 10,00
14/02/04 FEVEREIRO 15/02/04 R$ 30,00
15/03/04 MARÇO 15/03/04 R$ 30,00
17/04/04 ABRIL 15/04/04 R$ 30,00
ou seja, inves de aparecer diversas vezes o nome dele, aparece somente uma e essa unica vez deverá fica uma linha acima da linhas que mostrará as mensalidades que ele pagou. IGUAL AO EXEMPLO
