ALINHAR COLUNAS AO GERAR DOCUMENTO EXCEL

EVERSON.PASETTO 28/10/2011 10:22:51
#387987
Tenho esse seguinte codigo que copia os dados da listview e gera os dados no excel


Private Sub cmdImprimir_Click()
Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Dim i As Integer

Set Plan = CreateObject([Ô]excel.application[Ô])
Set xlApp = CreateObject([Ô]Excel.Application[Ô])
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets(1)

xlApp.Visible = True
xlApp.UserControl = True

Dim Linha As Integer
Linha = 1


xlWs.Cells(1, 1).Value = [Ô]Data[Ô]
xlWs.Cells(1, 2).Value = [Ô]Cliente[Ô]
xlWs.Cells(1, 3).Value = [Ô]Produto[Ô]
xlWs.Cells(1, 4).Value = [Ô]Qtd[Ô]
xlWs.Cells(1, 5).Value = [Ô]Und[Ô]
xlWs.Cells(1, 6).Value = [Ô]Valor Unid[Ô]
xlWs.Cells(1, 7).Value = [Ô]Valor Cliente[Ô]
xlWs.Cells(1, 8).Value = [Ô]Valor Padaria[Ô]
xlWs.Cells(1, 9).Value = [Ô]Valor Fabiano[Ô]
xlWs.Cells(1, 10).Value = [Ô]Observação[Ô]

For i = 1 To lsvHistorico.ListItems.Count
Dim A As Integer
A = 1 + i
xlWs.Cells(A, 1).Value = lsvHistorico.ListItems(i).Text
xlWs.Cells(A, 2).Value = lsvHistorico.ListItems(i).SubItems(1)
xlWs.Cells(A, 3).Value = lsvHistorico.ListItems(i).SubItems(2)
xlWs.Cells(A, 4).Value = lsvHistorico.ListItems(i).SubItems(3)
xlWs.Cells(A, 5).Value = lsvHistorico.ListItems(i).SubItems(4)
xlWs.Cells(A, 6).Value = lsvHistorico.ListItems(i).SubItems(5)
xlWs.Cells(A, 7).Value = lsvHistorico.ListItems(i).SubItems(6)
xlWs.Cells(A, 8).Value = lsvHistorico.ListItems(i).SubItems(7)
xlWs.Cells(A, 9).Value = lsvHistorico.ListItems(i).SubItems(8)
xlWs.Cells(A, 10).Value = lsvHistorico.ListItems(i).SubItems(9)
Next
End Sub
EVERSON.PASETTO 28/10/2011 10:25:53
#387989
Olhem o anexo.. tem o exemplo do relatorio que esta sendo gerado..

Ele ainda não foi salvo..

Só quero deixar ele alinhado.. com grades.. negrito na primeira linha.. e no modo de paisagem para impressão
EVERSON.PASETTO 28/10/2011 10:29:10
#387991
Queria deixar assim..

Desculpe postar as imagens assim..

Não consigo enviar anexo.. xls.. rar.. etc..
Diz que o formato não é aceito..
EVERSON.PASETTO 28/10/2011 12:05:46
#388009
Achei aqui no site.. exportar para word, pdf, excel

http://www.macoratti.net/vb6_exp.htm

Mas não tem o arquivo para download..

Só procurava a parte de fazer o alinhamento.. para dar um acabamento melhor..
MMMX 28/10/2011 13:50:51
#388024 Resposta escolhida
Cara, você vai ter que fazer assim, por exemplo:

xlWs.Cells(A, 7).Value = FORMAT(lsvHistorico.ListItems(i).SubItems(6),[Ô]CURRENCY[Ô])
EVERSON.PASETTO 28/10/2011 14:28:00
#388030
Entendi o que vc quiz dizer..

Mas não sei quais comandos usar para fazer o que quero..

Olhem o anexo que montei seguindo o site do Marcoratti

http://www.macoratti.net/vb6_exp.htm

O Programa funcina

Mas gostaria de adicinoar algumas coisas.

Como ao acessar a Tabela Cliente, tb acessar apenas os que moram em Canoas.
Tem como?
Tópico encerrado , respostas não são mais permitidas
Voltar