Pessoal... Olha só...

 

Eu tenho uma listview mais ou menos assim:

FILIAL   SKU           DTNOTA        TPNOTA            NºNOTA   REMETENTE   PREÇO

SHOPD  212966-2    08/12/2007    TRANSF.MERC.   54984     9004-OPERA   8,34

Na verdade eu preciso saber como eu faço para alinhar isso tudo...Pq na hora q eu estou imprimindo as linhas saem todas desalinhadas!!!

Tenta alterar a fonte para Corrier New ou Verdana, talvez ajude.

 

antes do código para imprimir

 

Printer.FontName="Currier New"

 

 

Function Imprimir()
    If lv.ListItems.Count = 0 Then
        MsgBox "Não há dados para ser impresso.", vbInformation, "AVISO"
    Else
        For Each Item In lv.ListItems
            Printer.Print Tab(1); Format(Item.Text, "@@@@@@"); "     "; Format(Item.SubItems(1), "@@@@@@"); "     "; Format(Item.SubItems(2), "@@@@@@"); "     "; Format(Item.SubItems(3), "@@@@@@"); "     "; Format(Item.SubItems(4), "@@@@@@"); "     "; Format(Item.SubItems(5), "@@@@@@"); "     "; Format(Item.SubItems(6), "@@@@@@")
        Next
        Printer.EndDoc
        MsgBox "Dados impresso com sucesso.", vbInformation, "Aviso"
    End If
End Function

 

Não adiantou.. Não saiu alinhado

 

Amigos...Consegui... Vou colocar o código aqui para caso alguem precise...

 

Function Imprimir()
    If lv.ListItems.Count = 0 Then
        MsgBox "Não há dados para ser impresso.", vbInformation, "AVISO"
    Else
        Dim i%, LVWidth%, NewTab%, j%
Dim itmX As ListItem
Dim ContaLinha%
 
  LVWidth = 0
  For i = 1 To lv.ColumnHeaders.Count
     LVWidth = LVWidth + lv.ColumnHeaders(i).Width
  Next
  NewTab = 0
   'imprime o cabeçalho
  For i = 1 To lv.ColumnHeaders.Count
      NewTab = NewTab + CInt(lv.ColumnHeaders(i).Width * Printer.ScaleWidth / LVWidth)
      Printer.Print lv.ColumnHeaders(i).Text;
      Printer.CurrentX = NewTab
  Next
  'imprime uma linha de separação
  Printer.Print
  'imprime_linha
  Printer.Print
  'se o numero de linhas do ListView for maior que o de linhas a
  'a imprimir então imprime o conteúdo total de Listview
  If Lines < lv.ListItems.Count And Lines <> 0 Then
       ContaLinha = Lines
   Else
       ContaLinha = lv.ListItems.Count
   End If
  'imprime os itens e subitens
  For i = 1 To ContaLinha
       NewTab = 0
       Set itmX = lv.ListItems(i)
       Printer.Print itmX.Text;
       For j = 1 To lv.ColumnHeaders.Count - 1
             NewTab = NewTab + CInt(lv.ColumnHeaders(j).Width * Printer.ScaleWidth / LVWidth)
             Printer.CurrentX = NewTab
             Printer.Print itmX.SubItems(j);
       Next
       Printer.Print
  Next
  'envia os dados para impressora
  Printer.EndDoc
        MsgBox "Dados impresso com sucesso.", vbInformation, "Aviso"
    End If
End Function