USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Imprimir ListView
Perci
MATÃO
SP - BRASIL
ENUNCIADA !
Postada em 04/07/2008 09:21 hs            
Olá, amigos, estou precisando de uma super-ajuda de vocês.
Preciso imprimit um relatório em que os registros estão em duas ListView no formulário: -ENTRADAS- e -SAIDAS-
 
Nos meus relatórios eu utilizo o Print #
 
Então, para imprimir a ListView das entradas eu faço assim:
 
For i = 1 To LstEntradas.ListItens.Count
                     ' imprime o lançamento             ' imprime o valor
    Print #1, Tab(0); LstEntradas.ListItems(i); Tab(37);LstEntradas.ListItems(i).SubItems(1)
Next
 
Para imprimir a ListView das saidas faço do mesmo jeito, apenas alterando o nome da ListView.
 
A minha dúvida é a seguinte:
Como fazer para imprimir as duas ListView de modo que imprima o primeiro item da entrada, e na frente imprima o primeiro item da saida e assim por diante até terminar as duas ListViews?
Se as duas ListViews tivessem a mesma quantidade de registros, não teria problema, mas acontece que as duas nunca terão a mesma quantidade.
 
Esse é um exemplo do que eu preciso fazer:
 
ENTRADAS                                     SAIDAS
----------------------------            ------------------------------------
PARCELA 01/2008       100,00            PAGAMENTO DE TRIBUTOS      544,00
PARCELA 02/2008       150,00            PAGAMENTO DE IMPOSTOS      980,00
PARCELA 06/2008       210,00           
PARCELA 07/2008       125,00           

--------------------------------------------------------------------------
TOTAL                      585,00            TOTAL                               1.524,00
 

Se puder me ajudar eu agradeço.
 
Até mais.
   
Treze
não registrado
ENUNCIADA !
Postada em 04/07/2008 09:31 hs   
Perci você já tentou um laça dentro do outro exemplo
 
For E = 1 To LstEntradas.ListItens.Count
For S = 1 To LstSaidas.ListItens.Count
 Print #1, Tab(0); LstEntradas.ListItems(e); Tab(37);LstEntradas.ListItems(e).SubItems(1); Tab(60);LstSaidas.ListItems(s)
Next S
Next E
 
não tenho certeza mas faça um teste se funcionar é só ajeitar as coisas.
 
 
   
Perci
MATÃO
SP - BRASIL
ENUNCIADA !
Postada em 04/07/2008 09:32 hs            
Vou tentar, amigão.
   
Perci
MATÃO
SP - BRASIL
ENUNCIADA !
Postada em 04/07/2008 15:43 hs            
Ok, Marcelo, desse jeito eu não consegui, mas depois de mais de 6 horas de tentativas, e muita teimosia (pois como eu já disse antes, eu não desisto nunca), parece que eu consegui uma solução. Ainda vou fazer mais alguns testes e se tiver tudo certo encerro este tópico. Mais uma vez agradeço a atenção, e a cada sdia que passa eu vou aprendendo mais e mais.
Valeu!
Até mais, amigo.
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página