IMPRIMIR LISTVIEW COM OBJETO PRINTER

 Tópico anterior Próximo tópico Novo tópico

IMPRIMIR LISTVIEW COM OBJETO PRINTER

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#333339 - 01/02/2010 15:49:27

ADHEL
PRAIA GRANDE
Cadast. em:Junho/2009


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



Resposta escolhida #333390 - 02/02/2010 11:11:47

RCMRO
JUNDIAI
Cadast. em:Julho/2009


Última edição em 02/02/2010 15:23:01 por RCMRO

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:

  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
SQLServer / VB
** Faça um upgrade nos seus neurônios, vai procurar antes de perguntar **

#333397 - 02/02/2010 11:30:08

ADHEL
PRAIA GRANDE
Cadast. em:Junho/2009


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



#333423 - 02/02/2010 15:24:34

RCMRO
JUNDIAI
Cadast. em:Julho/2009


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"

RCMRO
SQLServer / VB
** Faça um upgrade nos seus neurônios, vai procurar antes de perguntar **

#333484 - 03/02/2010 08:49:11

ADHEL
PRAIA GRANDE
Cadast. em:Junho/2009


Valeu RCMRO
Muito obrigado



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ADHEL em 03/02/2010 08:49:36