IMPRIMIR UM REGISTRO DO BANCO

USUARIO.EXCLUIDOS 30/05/2007 15:23:51
#218925
galera tava precisando imprimir um registro do banco de dados.
para melhor esclarecer vou tentar ser mais claro.
eu gostaria de quando eu clicase em um botão qualquer abrise uma janela pedindo o numero do registro a ser empresso. tipo imputbox ai eu digitaria o cod do banco, suponhamos que seja o nº2
então ele iria imprimir somente este registro com tudo que tivesse neste registro.
só para lembrar uso conexão ado e o objeto printer para imprimir.
e depois que eu digitasse o cod. então eu iria imprimir isso

Printer.FontBold = False
Printer.Print Tab(3); rscheques("id");
Printer.Print Tab(10); rscheques("nome");
Printer.Print Tab(39); rscheques("telefone");
RSet srtvalor = Format(rscheques("valor"), "#,##0.00") ' para deixar o Printer.Print Tab(53); srtvalor;
Printer.Print Tab(67); rscheques("data");
Printer.Print Tab(81); rscheques("cpf");
Printer.Print Tab(103); rscheques("banco");
Printer.Print Tab(112); rscheques("agencia");
RSet srtnumero = Format(rscheques("numcheque"), "###000")
Printer.Print Tab(118); srtnumero;
Printer.Print Tab(135); rscheques("situacao");
Printer.Print Tab(143); rscheques("Motivo");
Printer.Print Tab(10); rscheques("nome2");
esse é o meu cod para imprimir, tendo em vista que ele imprimi tudo que tiver no banco, mais o que eu queria era impimir somente um determinado registro.
desde ja agradeço.
USUARIO.EXCLUIDOS 30/05/2007 15:39:38
#218932 Resposta escolhida
vc deve estar fazendo assim pra abrir a conexao
rs.open "select * from tabela where codbanco=" & txtCod

if not rs.eof then
Printer.FontBold = False
Printer.Print Tab(3); rscheques("id");
Printer.Print Tab(10); rscheques("nome");
Printer.Print Tab(39); rscheques("telefone");
RSet srtvalor = Format(rscheques("valor"), "#,##0.00") ' para deixar o Printer.Print Tab(53); srtvalor;
Printer.Print Tab(67); rscheques("data");
Printer.Print Tab(81); rscheques("cpf");
Printer.Print Tab(103); rscheques("banco");
Printer.Print Tab(112); rscheques("agencia");
RSet srtnumero = Format(rscheques("numcheque"), "###000")
Printer.Print Tab(118); srtnumero;
Printer.Print Tab(135); rscheques("situacao");
Printer.Print Tab(143); rscheques("Motivo");
Printer.Print Tab(10); rscheques("nome2");
end if
USUARIO.EXCLUIDOS 30/05/2007 16:49:37
#218951
valeu mesmo muito obrigado, que deu possa lhe abençoar e te ajudar.
se puder me manda o seu msn para tc melho , via mensagem interna
Tópico encerrado , respostas não são mais permitidas
Voltar