El objeto Printer:
imprimir una imagen y texto por tu impresora
Os dejo un simple ejemplo donde se dibuja una imagen y un texto.
Código:
'
Gambas class file
Public
Sub
_new()
End
Public
Sub
Form_Open()
TextArea1.text
=
"Hola
que tal me llamo julio y soy esto es una prueba de impresion con el
objeto printer de gambas3. Es una prueba para redactar informes e
imprimirlos"
TextArea1.text
&=
gb.crlf
&
"salto
de "
&
gb.CrLf
&
"
linea"
Label1.text
=
"Impresora:"
&
Printer1.name
End
Public
Sub
ButtonImprimir_Click()
Me.Enabled
=
False
Inc
Application.Busy
Printer1.Print
Dec
Application.Busy
Me.Enabled
=
True
End
Public
Sub
Printer1_Draw()
Dim
PRINT_MARGIN
As
Float
=
Paint.Width
/
Printer1.PaperWidth
*
10
Dim
docV
As
String
Dim
hImg
As
Image
docV
=
TextArea1.Text
'texto
a escribir
'dibujo
una imagen
hImg
=
Image.Load("duck1.png")
Paint.Brush
=
Paint.Image(hImg,
0,
0)
Paint.Rectangle(0,
0,
hImg.Width,
hImg.Height)
Paint.Fill()
'escribo
el texto...
paint.brush
=
Paint.Image(Image.Load("recuadronegro.png"),
0,
0)
Paint.Font
=
Font["Courier"]
Paint.DrawRichText(docV,
PRINT_MARGIN
+
hImg.width,
PRINT_MARGIN
-
(Printer1.Page
-
1)
*
(Paint.Height
-
PRINT_MARGIN
*
2),
Paint.Width
-
PRINT_MARGIN
*
2
-
hImg.Width,
Paint.Height
*
Printer1.Count,
Align.TopNormal)
Paint.Stroke
End
Enlace del código fuente: alojado en google code
Saludos