Posta o código que você está utilizando pra preencher seu listbox
Porque este código funcionou perfeitamente aqui veja um exemplo completo
abra um novo projeto coloque nele um ListBox e um Command Button
e agora cole este código
Private Sub Form_Load()
For L=1 to 10
List1.AddItem "Teste " & L
next L
End Sub
Private Sub Command1_click()
For F=0 to list1.Listcount
Printer.Print list1.list(F)
Next F
Printer.EndDoc
End Sub
Agora veja o exemplo acima vai funcionar perfeitamente
(*) Preste atenção no seguinte, você pode estar imprimindo o list antes de preenche-lo com algo
e se for isto é claro que a impressão sairá em branco.
