Reinaldo, obrigado pela ajuda, parece que nesse tópico tem a solução... só estou com um pouco de dificuldade pra interpretar a propriedade ".tag", sabe me dizer como ela funciona?
Mairon, a Propriedade "TAG" tem de ser definida quando criamos o Cabeçalho "ColumnHeaders", por exemplo :
With ListView1
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add(Text:="IDS", Width:=15, Alignment:=fmAlignmentLeft).Tag = "N" 'Number
.ColumnHeaders.Add(Text:="TICKET", Width:=40, Alignment:=fmAlignmentRight).Tag = "N" 'Number
.ColumnHeaders.Add(Text:="DATA", Width:=60, Alignment:=fmAlignmentRight).Tag = "De" 'Date
.ColumnHeaders.Add(Text:="PLACA", Width:=50, Alignment:=fmAlignmentRight).Tag = "T" 'Texto - String
.ColumnHeaders.Add(Text:="MOTORISTA", Width:=80, Alignment:=fmAlignmentRight).Tag = "T" 'Texto - String
.ColumnHeaders.Add(Text:="CONTRATANTE", Width:=50, Alignment:=fmAlignmentRight).Tag = "T" 'Texto - String
.ColumnHeaders.Add(Text:="TARA", Width:=60, Alignment:=fmAlignmentRight).Tag = "N" 'Number
End With
Veja que ainda temos outra propriedade definida : Alignment que tem somente duas opções, e a primeira coluna tem de ser sempre Left ;
fmAlignmentRight e fmAlignmentLeft
Se o exemplo que indiquei não resolver, depois anexo um utilizando a rotina do site que o Reinaldo indicou.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 27/11/2014 1:03 pm