Printing a ListBox in Visio?

[Alcedes]

I don't know what I am doing wrong here.

This is my code.

For Count = 0 To lstInventory.ListCount - 1
Printer.Print lstInventory.List(Count)
Next Count

Printer.EndDoc

Everytime I run this I get the error:

Object Required

and it highlights the line

Printer.Print lstInventory.List(Count)

Now I know that the lstInventory is correct.
Which means the required object is "Printer"

But that is not an object that needs to be referenced.
It is just there. In VB6 it is at least. Do I need to reference it in VBa code? If so, which object is it?

What do I do to fix this?