HOW I SET THE DOCUMENT NAME WHEN PRINT?

HOW I CAN SET THE DOCUMENT NAME WHEN I PRINT WITH THE PRINTER OBJECT OF VISUAL BASIC?. THANKS.

Print a headline and some numbers

Code:

---

'some click event
Printer.Print ,,"Document Name"
Printer.Print ""
Dim i as integer
  For i = 1 to 20
    Printer.Print i
  Next i
Printer.EndDoc

---