Imprimir o resultado de um listbox

[diegorj22]

Olá galera.

Gostaria de saber um código para imprimir um listbox. Lembrando que não uso BD, tenho uma planilha no Excel que serve como base de dados. Já revirei o Google e até peguei alguns códigos, mas nenhum funciona.

O último que peguei foi esse:

Private Sub btnImprimir_Click()
Printer.Orientation = vbPRORPortrait
Printer.Font.Name = "Draft"

For i = 1 To lstLista.ListCount - 1
      List.ListIndex = i
      Printer.Print lstLista.Text
Next
Printer.EndDoc

Inseri dentro do botão "IMPRIMIR" e deu erro de "Variavel não definida".

Agradeço a ajuda.

Abraços

[Paulo Semblano]

Veja este link:

http://www.tudosobrexcel.com/excel_forum/v...mprimir+listbox

[diegorj22]

Veja este link:

http://www.tudosobrexcel.com/excel_forum/v...mprimir+listbox

Olá Paulo. Consegui acessar. Vou dar uma lida e qualquer coisa posto aqui.

Obrigado!

Editado Outubro 10, 2009 por diegorj22

[diegorj22]

O código que indicaram neste link é esse:

Private Sub ImprimirListBox() 
Dim i 
Application.ScreenUpdating = False 
Workbooks.Add 
For i = 1 To Me.ListBox1.ListCount 
Cells(i + 1, 1).Value = Me.ListBox1.List(Me.ListBox1.ListIndex + i) 
Next 
Application.ScreenUpdating = True 
End Sub

Eu adaptei esse código para um botão, alterando apenas a primeira linha, do PRIVATE, ficando assim:

Private Sub btnImprimir_Click()

Quando cliquei no botão, apresentou o seguinte erro: "Não foi possível obter a propriedade List. Índice de matriz de propriedade inválido" E marcou como erro a linha:

Cells(i + 1, 1).Value = Me.lstLista.List(Me.lstLista.ListIndex + i)

Desde já, agradeço a ajuda!

Editado Outubro 10, 2009 por diegorj22