IMPRIMIR LISTVIEW
Boa noite Pessoal a paz esteja com vocês!!
Será que alguém pode me ajudar??
Preciso imprimir o contéudo de uma listview e não sei como eu nunca tinha trabalhado com uma listview antes e com muita dificudade consegui termina-la agora só falta isso!!
Qro imprimir toda ela até os titulos das colunas tem como ou só o conteudo mesmo!!
Me ajuda ai quem conseguir...
Abraços!!
Será que alguém pode me ajudar??
Preciso imprimir o contéudo de uma listview e não sei como eu nunca tinha trabalhado com uma listview antes e com muita dificudade consegui termina-la agora só falta isso!!
Qro imprimir toda ela até os titulos das colunas tem como ou só o conteudo mesmo!!
Me ajuda ai quem conseguir...
Abraços!!
linhalvw = 1
While linhalvw <= lvwLista.ListItems.Count
Set itm = lvwLista.ListItems(linhalvw)
print..... itm.subitems(1)
linhalvw = linhalvw + 1
wend
Espero ter te ajudado.
While linhalvw <= lvwLista.ListItems.Count
Set itm = lvwLista.ListItems(linhalvw)
print..... itm.subitems(1)
linhalvw = linhalvw + 1
wend
Espero ter te ajudado.
Ou você pode usar o For... Next
For i = 1 To LstPedidos.ListItems.Count
Print #1, Tab(2); LstPedidos.ListItems(i).SubItems(1); Tab(47); LstPedidos.ListItems(i).SubItems(2);
Next
Obs: assim, só imprime o conteúdo da ListView
Espero ter ajudado.
Até mais.
For i = 1 To LstPedidos.ListItems.Count
Print #1, Tab(2); LstPedidos.ListItems(i).SubItems(1); Tab(47); LstPedidos.ListItems(i).SubItems(2);
Next
Obs: assim, só imprime o conteúdo da ListView
Espero ter ajudado.
Até mais.
Vc pode tbm utilizar o objeto printer.
Dando uma rapida pesquisada aki no forumm vc encontra material a respeito
Dando uma rapida pesquisada aki no forumm vc encontra material a respeito
Boa tarde pessoal a paz esta com vovês!!
EDSON GETTEN , PERCIFILHO eu não consegui imprimir com os codigos q vcs me mandaram...
Sempre aparece este objeto não aceita essa propriedade ou metodo!!
O que eu tenho q fazer, para chamar esse codigo é só por ele em um CommandButton certo??
O q estou fazendo de errado??
Abraços!!
EDSON GETTEN , PERCIFILHO eu não consegui imprimir com os codigos q vcs me mandaram...
Sempre aparece este objeto não aceita essa propriedade ou metodo!!
O que eu tenho q fazer, para chamar esse codigo é só por ele em um CommandButton certo??
O q estou fazendo de errado??
Abraços!!
Se quiser, pode enviar o projeto para analisarmos. Ou poste aqui o código que você está utilizando. Fica mais fácil de identificar e de apontar uma solução.
Atgé mais.
Atgé mais.
Percifilho tdo bem??
Obrigado por está me ajudando!!
O codigo que estou usando é o q vc me mandou mesmo junto com outro p/ me retornar umas mensagens...
O listview tem 12 colunas e eu qria imprimir todas ao mesmo tempo!!
Private Sub CommandButton1_Click()
With ListView1 [ô]isto supondo que o nome do listview é listminimo
If .ListItems.Count = 0 Then
MsgBox [Ô]Não há dados para ser impresso.[Ô], vbInformation, [Ô]AVISO[Ô]
Else
For i = 1 To ListView1.ListItems.Count
Printer.Print , Tab(2); ListView1.ListItems(i).SubItems(1); Tab(47); ListView1.ListItems(i).SubItems(2);
Next
Printer.EndDoc
MsgBox [Ô]Dados impresso com sucesso.[Ô], vbInformation, [Ô]Aviso[Ô]
End If
End With
End Sub
Obrigado por está me ajudando!!
O codigo que estou usando é o q vc me mandou mesmo junto com outro p/ me retornar umas mensagens...
O listview tem 12 colunas e eu qria imprimir todas ao mesmo tempo!!
Private Sub CommandButton1_Click()
With ListView1 [ô]isto supondo que o nome do listview é listminimo
If .ListItems.Count = 0 Then
MsgBox [Ô]Não há dados para ser impresso.[Ô], vbInformation, [Ô]AVISO[Ô]
Else
For i = 1 To ListView1.ListItems.Count
Printer.Print , Tab(2); ListView1.ListItems(i).SubItems(1); Tab(47); ListView1.ListItems(i).SubItems(2);
Next
Printer.EndDoc
MsgBox [Ô]Dados impresso com sucesso.[Ô], vbInformation, [Ô]Aviso[Ô]
End If
End With
End Sub
Alguém me corrija se eu estiver errado, por favor. Para usar o Print, não é necessário ir até o menu Project->References e marcar a referência ao Microsoft Scripting Runtime?
À propósito, nunca utilizei:
Printer.Print
Sempre utilizo:
Print#
Não sei se existe alguma diferença. Aprendi assim e faço assim até hoje.
Printer.Print
Sempre utilizo:
Print#
Não sei se existe alguma diferença. Aprendi assim e faço assim até hoje.
Boa noite Perci eu tentei com Print# mas mesmo assim não está dando certo!!
Será que vc pode me dizer o q eu tenho q fazer??
Até marquei o Microsoft Scripting Runtime q vc tinha falado antes mas mesmo assim não deu!!
Lembrando que meu ListView tem 13 colunas e eu qria poder imprimir todas ao mesmo tempo!!
Abraço!!
Será que vc pode me dizer o q eu tenho q fazer??
Até marquei o Microsoft Scripting Runtime q vc tinha falado antes mas mesmo assim não deu!!
Lembrando que meu ListView tem 13 colunas e eu qria poder imprimir todas ao mesmo tempo!!
Abraço!!
olá pessoal,
1-nao precisa marcar o scripting runtime
2-como o pessoal acima te passou aqui vc já esta imprimindo as 13 colunas
For i = 1 To ListView1.ListItems.Count
Printer.Print , Tab(2); ListView1.ListItems(i).SubItems(coluna1); Tab(47); ListView1.ListItems(i).SubItems(coluna2);ListView1.ListItems(i).SubItems(coluna3);ListView1.ListItems(i).SubItems(coluna4); ListView1.ListItems(i).SubItems(coluna5); [ô] e assim sucessivamente.
Next
1-nao precisa marcar o scripting runtime
2-como o pessoal acima te passou aqui vc já esta imprimindo as 13 colunas
For i = 1 To ListView1.ListItems.Count
Printer.Print , Tab(2); ListView1.ListItems(i).SubItems(coluna1); Tab(47); ListView1.ListItems(i).SubItems(coluna2);ListView1.ListItems(i).SubItems(coluna3);ListView1.ListItems(i).SubItems(coluna4); ListView1.ListItems(i).SubItems(coluna5); [ô] e assim sucessivamente.
Next
Tópico encerrado , respostas não são mais permitidas