Hola...
Lamentablemente no especificaste si la imagen la visualizas en un picturebox o
image pero bueno aqui va el ejemplo:
Para Picturebox (es lo mejor)...
Private Sub Command1_Click()
With Printer
.ScaleMode = 1
'Propiedades del tamaño de alto y ancho de la impresora
Alto = .ScaleHeight
Ancho = .ScaleWidth
End With
' impresion en medio del papel
Alto = (Alto \ 2) - (Picture1.ScaleHeight \ 2)
Ancho = (Ancho \ 2) - (Picture1.ScaleWidth \ 2)
Printer.PaintPicture Picture1.Picture, Ancho, Alto, Picture1.ScaleWidth,
Picture1.ScaleHeight
Printer.EndDoc
End Sub
Un saludo de SpeedCAD... :-)
