YO
06 de Noviembre del 2002

Tengo una imagen y deseo imprimirla por medio del metodo Printer y no se como hacerlo.
Muchas gracias

Joselon
06 de Noviembre del 2002

Dim Alto As Double, Ancho As Double

'Suponiendo la escala gráfica como vbTwips Twips por pixel:

With Printer
.ScaleMode = 1 'en lugar de 1 podemos usar vbTwips
'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