Presados senhores
Boa Noite!
Venho Novamente Pedir sua Atençao
tenho 6 tabelas e preciso mostralas em colunas em um relatorio
Alguem tem uma ideia de como vazer
Fiz o Seguinte mas nao deu certo
Dim BancoDeDados As Database
Dim TB01 As Recordset
Dim TB02 As Recordset
Dim TB03 As Recordset
Dim TB04 As Recordset
Dim TB05 As Recordset
Dim TB06 As Recordset
Dim TERMINO As Integer
Dim TERMINO1 As Integer
Dim LINHA As Integer
Private Sub Imprimir_Click()
If MsgBox("Inicia a impressão?", 36, "Imprimir Ordem de Serviço") = 7 Then
Exit Sub
End If
LINHA = 1
TERMINO = 0
TERMINO1 = 0
Set BancoDeDados = OpenDatabase("C:RELCPAGARBDcpagar.MDB")
Set TB01 = BancoDeDados.OpenRecordset("FILTRO011", dbOpenTable)
Set TB02 = BancoDeDados.OpenRecordset("FILTRO021", dbOpenTable)
Set TB03 = BancoDeDados.OpenRecordset("FILTRO031", dbOpenTable)
Set TB04 = BancoDeDados.OpenRecordset("FILTRO041", dbOpenTable)
Set TB05 = BancoDeDados.OpenRecordset("FILTRO051", dbOpenTable)
Set TB06 = BancoDeDados.OpenRecordset("FILTRO061", dbOpenTable)
Printer.Print Tab(30); " PAVAN"
Printer.Print Tab(25); " RELATORIO"
Printer.Print Tab(1); "DATA";
Printer.Print Tab(15); "VALOR";
Printer.Print Tab(30); "DATA";
Printer.Print Tab(45); "VALOR";
Printer.Print Tab(60); "DATA";
Printer.Print Tab(75); "VALOR";
Printer.Print Tab(90); "DATA";
Printer.Print Tab(105); "VALOR";
Printer.Print Tab(130); "DATA";
Printer.Print Tab(150); "VALOR";
Printer.Print Tab(165); "DATA";
Printer.Print Tab(180); "VALOR"
'Do While Not TB02.EOF Or Not TB03.EOF Or Not TB04.EOF Or Not TB05.EOF Or Not TB06.EOF
Do While Not TB02.EOF and NOT TB02.EOF And Not TB03.EOF And Not TB04.EOF And Not TB05.EOF And Not TB06.EOF
Printer.Print Tab(1); TB01("dt_venc");
Printer.Print Tab(15); TB01("valor");
Printer.Print Tab(30); TB02("dt_venc");
Printer.Print Tab(45); TB02("valor");
Printer.Print Tab(60); TB03("dt_venc");
Printer.Print Tab(75); TB03("valor");
Printer.Print Tab(90); TB04("dt_venc");
Printer.Print Tab(105); TB04("valor");
Printer.Print Tab(125); TB05("dt_venc");
Printer.Print Tab(150); TB05("valor");
Printer.Print Tab(165); TB06("dt_venc");
Printer.Print Tab(180); TB06("valor");
TB01.MoveNext
TB02.MoveNext
TB03.MoveNext
TB04.MoveNext
TB05.MoveNext
TB06.MoveNext
Loop
Printer.EndDoc
BancoDeDados.Close
End Sub
