Printing from a picture box

I am trying to print the image that I have loaded in a picture box and when I click on print in the menu it appears to accept the command:

Private Sub mnuPrint_Click()

Picture1.Picture = Picture1.Image
Printer.PaintPicture Picture1.Picture, 0, 0

End Sub

but after a few minutes I check on the status of the print job and it has only spooled 481 bytes of the job. Could it possibly be something such as the resolution of the image or if the image size is larger than 8.5 x 11?

try using printer.enddoc to end the print job and tell it to start printing.