SoloCodigo

prueba este código:

'Print the Picture contained in a PictureBox or a Form

Public Sub PrintImage(p As IPictureDisp, Optional ByVal x, Optional ByVal y, Optional ByVal resize)

    If IsMissing(x) Then x = Printer.CurrentX

    If IsMissing(y) Then y = Printer.CurrentY

    If IsMissing(resize) Then resize = 1

    Printer.PaintPicture p, x, y, p.Width * resize, p.Height * resize

End Sub

 

 

'

' FORMULARIO

'

Private Sub Command1_Click()

    'Print the image loaded in Picture1 (real size)

    PrintImage Picture1.Picture

    'Print the image loaded in Picture1 (half size)

    PrintImage Picture1.Picture, , , 0.5


End Sub