IMPRIMINDO COLUNAS DO LISTVIEW
Blza pesoal?
Queria saber, como faço pra imrimir uma coluna do ListView, por exemplo, meu programa exibe:
Nome Data de Nascimento
Viviano 01 / 02 / 2003
Marildo 10 / 11 / 2006
Rosauro 07 / 04 / 1980
Como eu faria pra imprimir dessa mesma forma, com tdos os 3 registros de Nome e Nascimento na mesma folha?
Obs: Usando VB 6.0
Valeu!
César
Queria saber, como faço pra imrimir uma coluna do ListView, por exemplo, meu programa exibe:
Nome Data de Nascimento
Viviano 01 / 02 / 2003
Marildo 10 / 11 / 2006
Rosauro 07 / 04 / 1980
Como eu faria pra imprimir dessa mesma forma, com tdos os 3 registros de Nome e Nascimento na mesma folha?
Obs: Usando VB 6.0
Valeu!
César
Usando o método Print para imprimir a partir da ListView ficaria assim:
'Onde Tab(15) seria a coluna 15 da sua impressora.
Dim X as integer
For X = 1 to ListView1.ListItems.Count
Printer.Print ListView.ListItems.Item(X); Tab(15); ListView.ListItems.Item(X).SubItems(1)
Next
'Porque vc não imprime diretamente do banco, usando um Recordset???
'Ficaria assim:
'Supondo que vc tenha uma conexão aberta chamada Cnn
'Vc sabe! Dim Cnn as Connection... etc. etc. bla bla bla
'Crie a variável para os Registros
Dim Rs as Adodb.Recordset 'ou Dim Rs as Recordset
set Rs = Cnn.Execute "Select Nome, Data From Tabela Order By Nome"
Dim X as integer
Do Until Rs.EOF
Printer.Print Rs!Nome; Tab(15); Rs!Data
Rs.MoveNext
Loop
'Verifique mais detalhes sobre o método Print aki mesmo no VBMania
'SE RESOLVI SEU PROBLEMA, POR FAVOR PONTUE-ME
'ABRAÇO
[S25]
'Onde Tab(15) seria a coluna 15 da sua impressora.
Dim X as integer
For X = 1 to ListView1.ListItems.Count
Printer.Print ListView.ListItems.Item(X); Tab(15); ListView.ListItems.Item(X).SubItems(1)
Next
'Porque vc não imprime diretamente do banco, usando um Recordset???
'Ficaria assim:
'Supondo que vc tenha uma conexão aberta chamada Cnn
'Vc sabe! Dim Cnn as Connection... etc. etc. bla bla bla
'Crie a variável para os Registros
Dim Rs as Adodb.Recordset 'ou Dim Rs as Recordset
set Rs = Cnn.Execute "Select Nome, Data From Tabela Order By Nome"
Dim X as integer
Do Until Rs.EOF
Printer.Print Rs!Nome; Tab(15); Rs!Data
Rs.MoveNext
Loop
'Verifique mais detalhes sobre o método Print aki mesmo no VBMania
'SE RESOLVI SEU PROBLEMA, POR FAVOR PONTUE-ME
'ABRAÇO
[S25]
Citação:Usando o método Print para imprimir a partir da ListView ficaria assim:
'Onde Tab(15) seria a coluna 15 da sua impressora.
Dim X as integer
For X = 1 to ListView1.ListItems.Count
Printer.Print ListView.ListItems.Item(X); Tab(15); ListView.ListItems.Item(X).SubItems(1)
Next
'Porque vc não imprime diretamente do banco, usando um Recordset???
Por algum motivo estranho, o relatório à ± é impresso, apenas, mostraca na lista de trabahos da impressora, "Enviando para o spool"
Ñ é a primeira vez q acontece isso, será q é probema da minha impressora?[S51]
No meu caso em especial, à ± é possivel imprimir diretamente do banco de dados, pq a pessoa tem a opção de filtrar os registros q ela deseja ver, e então imprimir eles, ou seja, o meu programa precisa imprimir o conteúdo atual do ListView1 e à ± do banco de dados.
Baixei alguns códigos, que fazem isso, mas apenas um registro por folha, oq ficaria mto tosco, imaginem imprimir 8.149 folhas!!! (# de registros atuais do meu sistema).
Valeu!
César Augusto
Tópico encerrado , respostas não são mais permitidas