Programación General > Visual Basic 6.0 e inferiores

 Re: Como hago para imprimir un picture tal como se ve?? URGE

(1/1)

liosuy:
Es asi de simple mi pregunta como hago para imprimir un picturebox

gracias

Ignacio

Jaume:
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

Navegación

[0] Índice de Mensajes