imprimir Listview1

[mrfg2000]

Bom dia amigos

gostaria de uma ajudinha

Gostaria de imprimir o conteúdo do meu listview para impressora.

Esta dando erro no comando Printer.Print

estou tentando utilizar o código abaixo ... mas esta dando erro ... alguém poderia me ajudar por favor:

For i = 1 To ListView4.ColumnHeaders.Count

Printer.Print Tab(20); ListView4.ColumnHeaders(i).Text;

Next

Printer.Print

Printer.Print

Dim item As ListItem

For Each item In ListView1.ListItems

Printer.Print Tab(20); item.Text;

For i = 1 To ListView1.ColumnHeaders.Count - 1

Printer.Print Tab(20); item.SubItems(i);

Next

Printer.Print

Next