Como imprimo una imagen?....

Hola Ezequiel,

prueba con el siguiente código de ejemplo;

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim pd As New System.Drawing.Printing.PrintDocument
AddHandler pd.PrintPage, AddressOf ImprimirImagen
pd.Print()
End Sub

Private Sub ImprimirImagen(ByVal sender As Object, ByVal e As
System.Drawing.Printing.PrintPageEventArgs)
e.Graphics.DrawImage(PictureBox1.Image, 0, 0)
End Sub


Espero que te sirva.

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"Ezequiel" wrote:

Hola, bueno antes que nada, un saludo y deciros que antes de preguntar he
estado mirando y buscando...:), esto por si maúlla alguien..jeje..

Bueno, a lo que voy, que nunca antes había imprimido una imagen en .NET y
ahora lo necesito. Como puedo hacer esto?.,.. He estado mirando el objeto
Printer, el Image y no encuentro nada¡¡¡..., o por lo menos no lo veo. La
imagen se encuentra en un PictureBox...

Un saludo y gracias...

OK, gracias, funciona bien. Una vez que me has echado una mano que no sabia
como imprimir, ya le he puesto un cuadro de diálogo de configuración de
impresora, lo pongo por si a alguien le interesa:
Dim Cuadro_Dialogo As New PrintDialog

Dim Documento As New System.Drawing.Printing.PrintDocument

Cuadro_Dialogo.Document = Documento

If Cuadro_Dialogo.ShowDialog = DialogResult.OK Then

'Cambiamos el estado del cursor poniendo un reloj de arena

Cursor = System.Windows.Forms.Cursors.WaitCursor

AddHandler Documento.PrintPage, AddressOf ImprimirImagen

Documento.Print()

'Regresamos el estado del cursor a normal

Cursor = System.Windows.Forms.Cursors.Default

End If



Private Sub ImprimirImagen(ByVal sender As Object, ByVal e As
System.Drawing.Printing.PrintPageEventArgs)

e.Graphics.DrawImage(Me.Imagen.Image, 0, 0)

End Sub



Lo dicho, muchas gracias por tu ayuda... Un saludo



"Jorge Serrano [MVP VB]"
escribió
en el mensaje news:

Hola Ezequiel,

prueba con el siguiente código de ejemplo;

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim pd As New System.Drawing.Printing.PrintDocument
AddHandler pd.PrintPage, AddressOf ImprimirImagen
pd.Print()
End Sub

Private Sub ImprimirImagen(ByVal sender As Object, ByVal e As
System.Drawing.Printing.PrintPageEventArgs)
e.Graphics.DrawImage(PictureBox1.Image, 0, 0)
End Sub


Espero que te sirva.

Un saludo,

Jorge Serrano Pérez
MVP VB.NET


"Ezequiel" wrote:

> Hola, bueno antes que nada, un saludo y deciros que antes de preguntar

he

> estado mirando y buscando...:), esto por si maúlla alguien..jeje..
>
> Bueno, a lo que voy, que nunca antes había imprimido una imagen en .NET

y

> ahora lo necesito. Como puedo hacer esto?.,.. He estado mirando el

objeto

> Printer, el Image y no encuentro nada¡¡¡..., o por lo menos no lo veo.

La

> imagen se encuentra en un PictureBox...
>
> Un saludo y gracias...
>
>
>