Imprimir una foto - perdida de resolución -

[erbuson]

Hola, te cuento lo que acabo de hacer porque no endiendo porque puede darte el error.

Tengo un formulario con un Picture1, un Image1, un Command1 y este código

Private Sub Command1_Click()
Image1.Picture = LoadPicture("C:\fotoprueba.jpg")
Picture1.Picture = LoadPicture("C:\fotoprueba.jpg")
Printer.PaintPicture Image1, 0, 0, Printer.Width, Printer.Height
Printer.NewPage
Printer.PaintPicture Picture1, 0, 0, Printer.Width, Printer.Height
Printer.EndDoc
End Sub

Me funciona perfectamente sin darme ningun tipo de error, si así te funciona, el error tal vez se produzca por otro motivo, por cambios que hagas en el mismo ¿ que hace realmente el programa ?, ¿ le cambia solo el tamaño o le efectúa ajustes ?

Saludos