SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: liosuy en Miércoles 24 de Julio de 2002, 04:49

Título: Re: Como hago para imprimir un picture tal como se ve?? URGE
Publicado por: liosuy en Miércoles 24 de Julio de 2002, 04:49

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

gracias

Ignacio

Título: Como hago para imprimir un picture tal como se ve?? URGENTEE
Publicado por: Jaume en Miércoles 24 de Julio de 2002, 11:39

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