PRINT - CONTADOR DE LINHAS

USUARIO.EXCLUIDOS 28/03/2004 15:25:48
#17350

Eu faço isso para imprimir
mas não estou conseguindo achar um jeito de mostrar num label a linha que está sendo impresso
Dim Linha As String
Linha = 1
Set Tbl = Banco.OpenRecordset("Clientes", dbOpenTable)
Printer.Print Tab(2); "pagina ";
Printer.Print conta
Call Cabeçalho
Do Until Tbl.EOF
Printer.Print Tab(0); Tbl!cod;
Printer.Print Tab(15); Tbl!nome;
Printer.Print Tab(60); Tbl!fone1
Tbl.MoveNext
If Linha = 50 Then
conta = conta + 1
Printer.NewPage
Printer.Print Tab(2); "pagina ";
Printer.Print conta
Call Cabeçalho
End If
Linha = Linha + 1
Loop
Printer.EndDoc
*************************************
Como eu faço para imbutir neste código um contador de linhas
para cada linha impressa e mostrar num label?
Ex
Imprimindo linha 1 de 15
imprimindo linha 2 de 15.....

Ja tentei com tbl.recordcount e não deu
grato

USUARIO.EXCLUIDOS 03/04/2004 12:58:25
#18677 Resposta escolhida

Se não conseguir tenho um exemplo de aplicativo que envia linha a linha para a impressora

USUARIO.EXCLUIDOS 08/04/2004 09:12:14
#19350

JÃ Â TE ENVIEI

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar