Imprimir una foto - perdida de resolución -

[erbuson]

Hola, precisamente estoy haciendo una pequeña aplicación que me permite arrastrar imágenes hacia una TIRA desplazable para después imprimir las que quiero y acabo de hacer esta prueba:

' Tengo una foto cargada en el Picture1
Image1.Picture = Picture1.Picture
Printer.PaintPicture Image1, 0, 0, Printer.Width, Printer.Height
Printer.NewPage
Printer.PaintPicture Picture1, 0, 0, Printer.Width, Printer.Height
Printer.EndDoc

Desde luego me salenb desproporcionadas en este ejemplo porque el Height/Width de las fotos no se corresponde con la impresora, pero yo no le encuentro diferencia, te lo comento porque como puedes ver no necesito indicarle la opcion .Image ni .Picture

Saludos