IMPRIMIR LISTVIEW COM OBJETO PRINTER
Boa tarde pessoal
Através de alguns tutorias e informações que consegui na net,tentei fazer uma impressão em um form que contém alguns textbox e 1 listview através do Objeto Printer.
Lembrando que hj é a primeira vez que trabalho com o objeto printer(E tb não sei se é a melhor saÃda.Se não for me falem por favor)
Eu fiz assim.Talvez esteja meio confuso.
Printer.Print Tab(1); [Ô]Cliente [Ô]; rsC([Ô]nome[Ô]);
Printer.Print
Printer.Print Tab(0); [Ô]Endereço [Ô] rsC([Ô]endereco[Ô]); [Ô] Cep [Ô]; rsC([Ô]cep[Ô]); [Ô] Cidade [Ô] rsC([Ô]cidade[Ô]); [Ô] UF [Ô] rsC([Ô]Uf[Ô]);
Printer.Print
Printer.Print Tab(0); [Ô]Telefone [Ô] rsC([Ô]Telefone1[Ô]);
Printer.Print Tab(0); [Ô]Cod [Ô] [Ô]Produto [Ô];
Printer.Print Tab(0); rsP([Ô]Codigo[Ô]) rsP([Ô]Produto[Ô]);
Resumindo
Nesse form aparece alguns dados do cliente e no listview aparece os produtos que foram trocados.
Até aà tudo corre perfeitamente na hora da impressão que aparece apenas o último item adicionado.
Obrigado a todos
Através de alguns tutorias e informações que consegui na net,tentei fazer uma impressão em um form que contém alguns textbox e 1 listview através do Objeto Printer.
Lembrando que hj é a primeira vez que trabalho com o objeto printer(E tb não sei se é a melhor saÃda.Se não for me falem por favor)
Eu fiz assim.Talvez esteja meio confuso.
Printer.Print Tab(1); [Ô]Cliente [Ô]; rsC([Ô]nome[Ô]);
Printer.Print
Printer.Print Tab(0); [Ô]Endereço [Ô] rsC([Ô]endereco[Ô]); [Ô] Cep [Ô]; rsC([Ô]cep[Ô]); [Ô] Cidade [Ô] rsC([Ô]cidade[Ô]); [Ô] UF [Ô] rsC([Ô]Uf[Ô]);
Printer.Print
Printer.Print Tab(0); [Ô]Telefone [Ô] rsC([Ô]Telefone1[Ô]);
Printer.Print Tab(0); [Ô]Cod [Ô] [Ô]Produto [Ô];
Printer.Print Tab(0); rsP([Ô]Codigo[Ô]) rsP([Ô]Produto[Ô]);
Resumindo
Nesse form aparece alguns dados do cliente e no listview aparece os produtos que foram trocados.
Até aà tudo corre perfeitamente na hora da impressão que aparece apenas o último item adicionado.
Obrigado a todos
Mas vc vai usar RECORDSETs ou vai usar os TEXTBOX e a LISTVIEW?
Se vai usar os RECORDSETs, como no seu exemplo, faz o seguinte:
Se vai usar os RECORDSETs, como no seu exemplo, faz o seguinte:
Printer.Print Tab(1); [Ô]Cliente [Ô]; rsC([Ô]nome[Ô])
Printer.Print Tab(0); [Ô]Endereço [Ô]; rsC([Ô]endereco[Ô]); [Ô] Cep [Ô]; rsC([Ô]cep[Ô]); [Ô] Cidade [Ô]; rsC([Ô]cidade[Ô]); [Ô] UF [Ô]; rsC([Ô]Uf[Ô])
Printer.Print Tab(0); [Ô]Telefone [Ô] rsC([Ô]Telefone1[Ô])
Printer.Print Tab(0); [Ô]Cod [Ô] [Ô]Produto [Ô]
rsP.MoveFirst
do while not rsP.EOF
Printer.Print Tab(0); rsP([Ô]Codigo[Ô]), rsP([Ô]Produto[Ô])
rsP.MoveNext
loop
RCMRO Bom dia
Desse jeito aparece apenas o ultimo item adicionado no listview.
Agora sobre Usar RECORDSETS OU TEXTBOXS/LISTVIEW ,gostaria de fazer do jeito menos complicado,que ainda não descobri qual é.
Valeu
Desse jeito aparece apenas o ultimo item adicionado no listview.
Agora sobre Usar RECORDSETS OU TEXTBOXS/LISTVIEW ,gostaria de fazer do jeito menos complicado,que ainda não descobri qual é.
Valeu
Você copiou e colou o trecho de programa que te mandei???
Se fez EXATAMENTE uma cópia, então o [Ô]rsP[Ô] não é o recordset que tem os dados do ListView.
Se for assim, basta trocar o nome o recordset para o que possui os dados do Listview e [Ô]voila[Ô]
Se fez EXATAMENTE uma cópia, então o [Ô]rsP[Ô] não é o recordset que tem os dados do ListView.
Se for assim, basta trocar o nome o recordset para o que possui os dados do Listview e [Ô]voila[Ô]
Valeu RCMRO
Muito obrigado
Muito obrigado
Tópico encerrado , respostas não são mais permitidas