Como imprimir el contenido de um textarea
Publicado por José Luis (16 intervenciones) el 15/09/2019 19:45:40
Buenas tardes,
Queia imprimir un TextArea
Buscando por la web he encontrado esta página que explica varios métodos para imprimir con gambas
https://cursogambas.blogspot.com/2013/01/imprimir-en-gambas3-el-objeto-printer.html
He probado con el de insertar un componente Printer que tendria el siguiente código según el artículo anterior
Y en el boton de imprimir:
-->
La única diferencia es que en mi caso lo llamo desde un menu en lugar de un botón, pero no creo que esto sea un problema. Pero no hace nada. He tenido que añadir al inicio del código
Public Printer1 As Printer
Si intento ejecutar el código linea a linea para ver que hace ciando llega a la linea de
Printer.Print el programa peta (dice Objeto Nulo)
¿Sabe alguien que es lo que falla? o ¿sabeis algún código que si funcione?, o de alguna web que lo explique bien.
Gracias y saludos
Queia imprimir un TextArea
Buscando por la web he encontrado esta página que explica varios métodos para imprimir con gambas
https://cursogambas.blogspot.com/2013/01/imprimir-en-gambas3-el-objeto-printer.html
He probado con el de insertar un componente Printer que tendria el siguiente código según el artículo anterior
1
2
3
4
5
6
7
Public Sub Printer1_Draw()
Dim PRINT_MARGIN As Float = Paint.Width / Printer1.PaperWidth * 10
Dim docV As String
docV = TextArea1.Text 'texto a escribir
Paint.Font = Font["Courier"]
Paint.DrawRichText(docV, PRINT_MARGIN, PRINT_MARGIN - (Printer1.Page - 1) * (Paint.Height - PRINT_MARGIN * 2), Paint.Width - PRINT_MARGIN * 2, Paint.Height * Printer1.Count, Align.TopNormal)
EndY en el boton de imprimir:
-->
1
2
3
4
5
6
7
Public Sub ButtonImprimir_Click()
Me.Enabled = False
Inc Application.BusyPrinter1.PrintDec Application.BusyMe.Enabled = True
End
La única diferencia es que en mi caso lo llamo desde un menu en lugar de un botón, pero no creo que esto sea un problema. Pero no hace nada. He tenido que añadir al inicio del código
Public Printer1 As Printer
Si intento ejecutar el código linea a linea para ver que hace ciando llega a la linea de
Printer.Print el programa peta (dice Objeto Nulo)
¿Sabe alguien que es lo que falla? o ¿sabeis algún código que si funcione?, o de alguna web que lo explique bien.
Gracias y saludos
Valora esta pregunta
0
