IMPRIMIR PAINEL

LOPESKUTI 13/08/2012 11:10:40
#407826
Olá a todos. Estou precisando imprimir um painel que eu criei.
Só que sem usar relatório nem nada. Apenas tranformar um componente (no caso o panel) em uma imagem e imprimir ele em uma etiqueta.
Obrigado.
PROFESSOR 23/08/2012 12:01:36
#408438
Você pode usar a Graphics para esse fim (copiar uma área da tela como imagem), sabendo as dimensões do seu componente em tempo de execução.
Depois é só usar a imagem como achar mais adequado.
Por exemplo, tente algo como:

...
Dim bmp As Bitmap = Nothing
...
Try
Dim rt As Rectangle = meuPainel.Bounds
Dim pt As Point = meuPainel.PointToScreen(rt.Location)
bmp = New Bitmap(rt.Width, rt.Height)
Using g As Graphics = Graphics.FromImage(bmp)
g.CopyFromScreen(New Point(pt.X - meuPainel.Location.X,
pt.Y - meuPainel.Location.Y),
Point.Empty,
rc.Size)
g.Save
End Using
Catch ex As Exception
MessageBox.Show(String.Format([Ô]Ocorreu um erro: O serviço retornou a mensagem:(1)[ô]{0}[ô].[Ô], ex.Message, vbNewLine))
End Try
...



Valew!
Tópico encerrado , respostas não são mais permitidas