Tenho um command que possui o seguinte codigo:
Private Sub cmdImprimir_Click()
Dim S_Nome As String
Dim S_DESCRICAO As String
Dim S_Valor As String
Dim Linha As String
If MsgBox("Iniciar Impressão?", 36, "Aviso do Sistema") = 7 Then
Exit Sub
End If
Linha = 1
Data2.DatabaseName = (App.Path & "\cyberbase.mdb")
Data2.RecordSource = "SELECT CLIENTE.CODIGO, CLIENTE.NOME, PARCELAS.* FROM CLIENTE INNER JOIN PARCELAS ON CLIENTE.CODIGO = PARCELAS.CODIGO_ALUNO WHERE PARCELAS.PAGAMENTO = #" & Format(MaskEdBox1, "mm/dd/yyyy") & "#"
Data2.Refresh
Printer.FontName = "Arial"
Printer.FontSize = 8
Do While Not Data2.Recordset.EOF = True
If Linha = 1 Then
Cabeçalho
End If
S_Nome = Data2.Recordset.Fields("NOME")
S_DESCRICAO = Data2.Recordset.Fields("DESCRICAO")
S_Valor = Data2.Recordset.Fields("VALOR")
Printer.CurrentX = 130
Printer.Print Tab(3); S_Nome;
Printer.Print Tab(65); S_DESCRICAO;
Printer.Print Tab(85); S_Valor
Linha = Linha + 1
Data2.Recordset.MoveNext
If Linha >= 80 Then
Printer.NewPage
Linha = 1
End If
Loop
Printer.EndDoc
End Sub
está tudo ok!
O problema é o seguinte quero criar uma outra SQL que mostre outra lista de registro só que começando depois de um certo espaço da 1ª lista... ai que está o problema... não sei onde termina a 1ª lista, pois pode aparecer 2 registros (2 linhas) ou 20 registros (20 linhas) (a quantidade de registro varia)... ai não tem como definir uma posição CurrentX para a 1ª linha da segunda lista....
a SQL da 2ª lista de registros a ser impresso na mesma pagina é essa:
Data3.DatabaseName = (App.Path & "\cyberbase.mdb")
Data3.RecordSource = "SELECT DESCRICAO, CATEGORIA, VALOR FROM PGTOOUTRO WHERE DATA = #" & Format(Mask1, "mm/dd/yyyy") & "# AND (CATEGORIA = '" & cboAcesso.Text & "')"
Data3.Refresh
Desde já agradeço1
