PictureBox - VB-MUNDO

d@mi@n · #1 (**permalink**) 12-05-2008, 17:24:34

Tengo un control PictureBox con varios controles dentro de el ... Image, Label y Line. Yo necesito imprimir el contenido del picture. La verdad que desconozco si esto es posible, si asi no se puede no tengo problemas en cambiar el Picture .. por ejemplo por un frame .. pero no se impirmirlo tampoco ..

Gracias
Salu2

seba123neo · #2 (**permalink**) 12-05-2008, 17:44:17

Hola,lo que se me ocurre que podes hacer es lo siguiente,primero captura el area cliente del picturebox o sea el HDC y guardas en un archivo .bmp la captura del contenido del picturebox y despues cargas ese .bmp a otro picturebox y le aplicas este codigo para imprimir el picture de un control picturebox:

Cómo imprimir el contenido de un PictureBox

para capturar el area del picturebox y guardarla mirate este codigo:

Capturar el área cliente de un picture y de una ventana o formulario y pegar la imagen en el portapapeles

ahi te captura la imagen y la guarda en el portapapeles,lo unico que tenes que hacer es recuperar esa imagen con el metodo GetData del portapapeles y guardarla con un Savepicture,y despues cargas la imagen en otro picturebox y le aplicas el primer link que puse...

saludos.

d@mi@n · #3 (**permalink**) 13-05-2008, 12:08:46

Desde ya gracias por tu ayuda ... hice lo siguiente :

'Borramos el Clipboard
Clipboard.Clear

'Le pasamos a la Sub el Picture1
Clipboard.SetData CaptureClient(Picture1)
pbxImpresion.Picture = Clipboard.GetData()

Printer.PaintPicture pbxImpresion.Picture, 2, 2, 4, 4
Printer.EndDoc

pbxImpresion es el picture que uso para imprimir ... en el cual veo cuando carga los demas controles pero imprime nada

seba123neo · #4 (**permalink**) 14-05-2008, 14:51:43

Hola,mira yo te decia asi,recien lo probe y imprime bien el contenido del picture,es asi:

primero pone un picturebox(picture1) y ponele cosas adentro,un label,un line,un boton...lo que quieras...despues pone otro picturebox(picture2) que es donde va a quedar almacenada la captura del picture1 y la vamos a imprimir desde este mismo..despues pone un boton que es el encargado de capturar la imagen del picture1,la va a guardar en el portapapeles,la va a recuperar del portapapeles,la va a pegar en el picture2 y la va a imprimir...

el codigo:

pone en un modulo bas todo el codigo del segundo link que te pase...y despues en tu formulario pone esto:

Código:

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetData CaptureClient(Picture1)
Picture2.Picture = Clipboard.GetData
Printer.PaintPicture Picture2.Picture, Printer.Width / 4, Printer.Height / 4, Printer.Width / 2, Printer.Height / 2
Printer.EndDoc
End Sub

te tiene que funcionar,a mi me imprimio correctamente el contenido del picturebox,con lines,labels y botones dentro...con respecto al tamaño de la impresion la podes regular vos mismo despues..

saludos.

d@mi@n · #5 (**permalink**) 16-05-2008, 10:57:10

Gracias amigo ..!!! el tema estaba en el tamaño al momento de imprimir ... yo puse
Printer.PaintPicture pbxImpresion.Picture, 2, 2, 4, 4
estos valores son en pixeles entonces al imprimir no se veia ... antes de esa linea puse Printer.ScaleMode = vbCentimeters y todo anda de 10 !!!!!!!

Gracias