Udprintning af form med Printer objekt

Jeg ønsker at udprinte en form vha. det virtuelle printer objekt. Iflg. hjælpen kan dette gøres med flg. sub:

Sub PrintAnywhere (Src as Object, Dest as Object)
Dest.PaintPicture Src.Picture, Dest.Width / 2, Dest.Height / 2
If Dest Is Printer Then
    Printer.EndDoc
End If
End Sub

Og derefter kalde denne med kommandoen:

PrintAnyWhere MyForm, Printer

Hvis jeg kopierer denne kode direkte fra hjælpen ind i et helt nyt projekt, der kun indeholder en form med en kommandoknap, som man kan klikke på for at starte udprintningen, får jeg en "Invalid Picture" - error (481)