IMPRIMIR LISTVIEW
Bom dia ACG1574 tdo bem??
Poxa eu não consigo fazer o código funcionar!!
é só pegar esse código e por ele em um CommandButton certo??
Ou eu tenho q configurar algo antes??
E mais uma vezes obrigado pela atenção!!
A paz esteja com vocês!!
Poxa eu não consigo fazer o código funcionar!!
é só pegar esse código e por ele em um CommandButton certo??
Ou eu tenho q configurar algo antes??
E mais uma vezes obrigado pela atenção!!
A paz esteja com vocês!!
E só para vc ver o código q vc me passou ficou assim certo??
Mas aparece o erro [Ô]Erro em tempo de execução 380[Ô] invalid property value.
Private Sub CommandButton1_Click()
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); ListView1.ListItems(i).SubItems(coluna6); ListView1.ListItems(i).SubItems(coluna7); ListView1.ListItems(i).SubItems(coluna8); ListView1.ListItems(i).SubItems(coluna9); ListView1.ListItems(i).SubItems(coluna10); ListView1.ListItems(i).SubItems(coluna11); ListView1.ListItems(i).SubItems(coluna12); ListView1.ListItems(i).SubItems(coluna13)
Next
End Sub
Mas aparece o erro [Ô]Erro em tempo de execução 380[Ô] invalid property value.
Private Sub CommandButton1_Click()
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); ListView1.ListItems(i).SubItems(coluna6); ListView1.ListItems(i).SubItems(coluna7); ListView1.ListItems(i).SubItems(coluna8); ListView1.ListItems(i).SubItems(coluna9); ListView1.ListItems(i).SubItems(coluna10); ListView1.ListItems(i).SubItems(coluna11); ListView1.ListItems(i).SubItems(coluna12); ListView1.ListItems(i).SubItems(coluna13)
Next
End Sub
Boa Noite pessoal todo bem??
Pessoal estou de volta depois de umas semanas cheia de trabalho...
E qria informar a vocês q ainda ñ consegui fazer o codigo p/ imprimir uma LIstView!!
Me ajundem ai por favor está muito dificil já andei lendo algumas coisas sobre ListView mas mesmo assim ñ consigo!!
Lembrando que Meu projeto está sendo feito no VBA do Excel...
Por favor me ajudem ai!!
Desde já um muito obrigado!!
Pessoal estou de volta depois de umas semanas cheia de trabalho...
E qria informar a vocês q ainda ñ consegui fazer o codigo p/ imprimir uma LIstView!!
Me ajundem ai por favor está muito dificil já andei lendo algumas coisas sobre ListView mas mesmo assim ñ consigo!!
Lembrando que Meu projeto está sendo feito no VBA do Excel...
Por favor me ajudem ai!!
Desde já um muito obrigado!!
Pessoal se for preciso eu mando o meu projeto p/ o e-mail de quem estiver disposto a me ajudar...
Boa tarde,
Tambem estou tentanto imprimir o conteudo de uma listview... e com o que vejo aqui, está a dar erro.
Alguem pode postar um pequeno arquivo...
Obrigado pela atenção.
Cump.
njesus
Tambem estou tentanto imprimir o conteudo de uma listview... e com o que vejo aqui, está a dar erro.
Alguem pode postar um pequeno arquivo...
Obrigado pela atenção.
Cump.
njesus
Tenta com while / wend
rs tb nao manjo muito, mas pode ser que funcione
rs tb nao manjo muito, mas pode ser que funcione
Tenho um pequeno exemplo que testei aqui e funcionou. Veja se consegue imprimir assim.
Qualquer coisa poste novamente, se possÃvel com o seu projeto para podermos analisá-lo.
Até mais.
Qualquer coisa poste novamente, se possÃvel com o seu projeto para podermos analisá-lo.
Até mais.
assim manda direto para impressora padrao
adaptação do codigo do amigo
Private Sub Form_Load()
Lista.ListItems.Clear
Set linha = Lista.ListItems.Add(, , [Ô]CARLOS ALBERTO DE OLIVEIRA SANTOS[Ô])
linha.SubItems(1) = [Ô]ARARAQUARA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]CLAUDEMIR PEREIRA[Ô])
linha.SubItems(1) = [Ô]NOVA ODESSA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]RICARDO APARECIDO DURANTE[Ô])
linha.SubItems(1) = [Ô]OLIMPIA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]ADILSON BATISTA DE SOUSA[Ô])
linha.SubItems(1) = [Ô]ARARAS=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]JOSE HUMBERTO LOPES[Ô])
linha.SubItems(1) = [Ô]HOLAMBRA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]RODRIGO ALVES[Ô])
linha.SubItems(1) = [Ô]RIBEIRAO PRETO=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]ROSANA ALVES DE CAMPOS[Ô])
linha.SubItems(1) = [Ô]SAO CARLOS=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]ANA DE LOURDES RODRIGUES[Ô])
linha.SubItems(1) = [Ô]TAQUARITINGA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]GERSON DE BRITO[Ô])
linha.SubItems(1) = [Ô]RIBEIRAO BONITO=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]GUILHERME AUGUSTO DE PADUA[Ô])
linha.SubItems(1) = [Ô]JAU=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]DIONISIO DE JESUS ALVES[Ô])
linha.SubItems(1) = [Ô]BAURU=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]DIOGO CAMARGO[Ô])
linha.SubItems(1) = [Ô]CATANDUVA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]DOUGLAS APARECIDO DO CARMO[Ô])
linha.SubItems(1) = [Ô]SAO PAULO=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]PEDRO HENRIQUE GOMES[Ô])
linha.SubItems(1) = [Ô]SAO ROQUE=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]ALVARO JOSE DA SILVA[Ô])
linha.SubItems(1) = [Ô]JAGUARIUNA=SP[Ô]
End Sub
Private Sub BtnImprimir_Click()
[ô] Set fs = CreateObject([Ô]Scripting.FileSystemObject[Ô])
[ô] Set A = fs.CreateTextFile(App.Path & [Ô] emp.txt[Ô], True)
[ô] A.Close
[ô] Open App.Path & [Ô] emp.txt[Ô] For Output As #1
CurrentX = 0
CurrentY = 0
For i = 1 To Lista.ListItems.Count
Printer.Print Tab(2); Lista.ListItems(i).Text; Tab(50); Lista.ListItems(i).SubItems(1)
Next
Printer.EndDoc
[ô] Close #1
[ô] Open App.Path & [Ô] emp.txt[Ô] For Input As #1
[ô] Open [Ô]LPT1[Ô] For Output As #2 [ô] A impressora agora esta conectada a porta LPT1
[ô] Print #2, Input(LOF(1), #1) [ô]imprimindo
[ô] Close
End Sub
adaptação do codigo do amigo
Private Sub Form_Load()
Lista.ListItems.Clear
Set linha = Lista.ListItems.Add(, , [Ô]CARLOS ALBERTO DE OLIVEIRA SANTOS[Ô])
linha.SubItems(1) = [Ô]ARARAQUARA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]CLAUDEMIR PEREIRA[Ô])
linha.SubItems(1) = [Ô]NOVA ODESSA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]RICARDO APARECIDO DURANTE[Ô])
linha.SubItems(1) = [Ô]OLIMPIA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]ADILSON BATISTA DE SOUSA[Ô])
linha.SubItems(1) = [Ô]ARARAS=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]JOSE HUMBERTO LOPES[Ô])
linha.SubItems(1) = [Ô]HOLAMBRA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]RODRIGO ALVES[Ô])
linha.SubItems(1) = [Ô]RIBEIRAO PRETO=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]ROSANA ALVES DE CAMPOS[Ô])
linha.SubItems(1) = [Ô]SAO CARLOS=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]ANA DE LOURDES RODRIGUES[Ô])
linha.SubItems(1) = [Ô]TAQUARITINGA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]GERSON DE BRITO[Ô])
linha.SubItems(1) = [Ô]RIBEIRAO BONITO=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]GUILHERME AUGUSTO DE PADUA[Ô])
linha.SubItems(1) = [Ô]JAU=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]DIONISIO DE JESUS ALVES[Ô])
linha.SubItems(1) = [Ô]BAURU=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]DIOGO CAMARGO[Ô])
linha.SubItems(1) = [Ô]CATANDUVA=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]DOUGLAS APARECIDO DO CARMO[Ô])
linha.SubItems(1) = [Ô]SAO PAULO=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]PEDRO HENRIQUE GOMES[Ô])
linha.SubItems(1) = [Ô]SAO ROQUE=SP[Ô]
Set linha = Lista.ListItems.Add(, , [Ô]ALVARO JOSE DA SILVA[Ô])
linha.SubItems(1) = [Ô]JAGUARIUNA=SP[Ô]
End Sub
Private Sub BtnImprimir_Click()
[ô] Set fs = CreateObject([Ô]Scripting.FileSystemObject[Ô])
[ô] Set A = fs.CreateTextFile(App.Path & [Ô] emp.txt[Ô], True)
[ô] A.Close
[ô] Open App.Path & [Ô] emp.txt[Ô] For Output As #1
CurrentX = 0
CurrentY = 0
For i = 1 To Lista.ListItems.Count
Printer.Print Tab(2); Lista.ListItems(i).Text; Tab(50); Lista.ListItems(i).SubItems(1)
Next
Printer.EndDoc
[ô] Close #1
[ô] Open App.Path & [Ô] emp.txt[Ô] For Input As #1
[ô] Open [Ô]LPT1[Ô] For Output As #2 [ô] A impressora agora esta conectada a porta LPT1
[ô] Print #2, Input(LOF(1), #1) [ô]imprimindo
[ô] Close
End Sub
aqui, posso entrar na discussao?? veja so, para que vc ta querendo imprimir uma listviwer, sempre que se vc fizer o relatorio por exemplo no datareport que seja, e so passar o parametro da list, que ele imprime e bem melhor do que mandar imprimir direto..
Assim como o nosso amigo XXXANGELSXXX falou, posso entrar na discussão?
Olha eu sou cara que particulamente prefiro fazer os meus relatórios na mão, não gosto muito do datareport e ODEIO o crystal report, más utilizo eles tb.
Não sei como que vocês iniciaram o comando printer, estou colocando aqui o inicio
Printer.Scalemode = 4 [ô]Tipo de caracter
Printer.Fontsize = 10 [ô]Tamanho fonte
Printer.FontName = [Ô]Arial[Ô] [ô]Nome da Fonte
Printer.Print tab(0); [Ô]CABEÇALHO[Ô]
Printer.Print tab(0);
.
.
.
.
Printer.Enddoc [ô]Finaliza a impressão e manda para a impressora
Impressão Mandando direto para a porta COM, isso serve melhor para as impressoras matriciais
Open [Ô]Lpt1[Ô] For Output As #1 [ô]Imprimir na LPT1
ou
Open [Ô]Com1[Ô] For Output As #1 [ô]Imprimir na Com1
ou
[ô]Open [Ô]\
ome_do_computador
ome_da_impressora[Ô] For Output As #1 [ô]Imprimir na rede
Obs: Nesse modo na maioria das vezes os acentos não funcionam
print #1, tab(0); [Ô]Cabecalho[Ô]
print #1,tab(0)
print #1,tab(0)
.
.
.
close #1 [ô]Termina a impressão
Acho que o deu de errado foi o jeito que foi iniciado o mode de impressão, porque os comandos que foram colocados aqui estão corretos, espero que isso ajude, senão ajudar coloca o comando inteiro da impressão para a gente analisar
Olha eu sou cara que particulamente prefiro fazer os meus relatórios na mão, não gosto muito do datareport e ODEIO o crystal report, más utilizo eles tb.
Não sei como que vocês iniciaram o comando printer, estou colocando aqui o inicio
Printer.Scalemode = 4 [ô]Tipo de caracter
Printer.Fontsize = 10 [ô]Tamanho fonte
Printer.FontName = [Ô]Arial[Ô] [ô]Nome da Fonte
Printer.Print tab(0); [Ô]CABEÇALHO[Ô]
Printer.Print tab(0);
.
.
.
.
Printer.Enddoc [ô]Finaliza a impressão e manda para a impressora
Impressão Mandando direto para a porta COM, isso serve melhor para as impressoras matriciais
Open [Ô]Lpt1[Ô] For Output As #1 [ô]Imprimir na LPT1
ou
Open [Ô]Com1[Ô] For Output As #1 [ô]Imprimir na Com1
ou
[ô]Open [Ô]\
ome_do_computador
ome_da_impressora[Ô] For Output As #1 [ô]Imprimir na rede
Obs: Nesse modo na maioria das vezes os acentos não funcionam
print #1, tab(0); [Ô]Cabecalho[Ô]
print #1,tab(0)
print #1,tab(0)
.
.
.
close #1 [ô]Termina a impressão
Acho que o deu de errado foi o jeito que foi iniciado o mode de impressão, porque os comandos que foram colocados aqui estão corretos, espero que isso ajude, senão ajudar coloca o comando inteiro da impressão para a gente analisar
Tópico encerrado , respostas não são mais permitidas