Try this code. Make a Form with a PictureBox and a CommandButton. Make sure that there is a Picture loaded into the PictureBox.

Code:
Private Sub Command1_Click()

    Printer.PaintPicture Picture1.Picture, 100, 100
    Printer.EndDoc

End Sub