Imprimir Textarea


Objetivo: Imprimir Textarea
Hola que tal? Para variar tengo un problema jejeje . Tengo un TextArea, que cuando son mas de dos hojas no puedo imprimirlas, es decir, cuando le doy imprimir solo imprime hasta completar la primera hoja y después solo saca una hoja en blanco, alguien sabe alguna forma para imprimir todo el contenido que haya en un textarea? Desde ya gracias

Perfil MP  
Objetivo: Re: Imprimir Textarea
Sube el código que hayas intentado. A partir de ahí podemos decirte.

Perfil MP  
Objetivo: Re: Imprimir Textarea
Solucionado jejej.

PUBLIC SUB Imprimir_reporte(Text AS String)
DIM textLine AS String
DIM fontHeight AS Integer
DIM pagePosition AS Integer
' Display printer dialog
IF Printer.Setup() THEN RETURN
Draw.Begin(Printer)
' Calcula el tamaño de cada linea del texto
fontHeight = Draw.TextHeight("My DEMO Font Height")
' If the WrapText options is selected then resize each line
pagePosition = 0
FOR EACH textLine IN Split(Text, "\n")
' Chequea si llego al final de la linea
IF pagePosition > (Printer.Height - (3 * fontHeight)) THEN
' Resetea la pagina y vuelve a la posicion inicial para volver a imprimir nueva pagina
pagePosition = 0
Printer.NewPage()
END IF
' Calcula la posicion de la siguiente linea
pagePosition += fontHeight
Draw.Text(textLine, Printer.Resolution / 2, pagePosition)
NEXT
Draw.End
DEC Application.Busy
END ' gambas module file

Perfil MP  
Objetivo: Re: Imprimir Textarea
Hola colega,
yo utilizo el textarea exclusivamente para hacer reportes en mi
sistema de gestión, y hace un tiempo publique el código necesario
para imprimir pagina por pagina e textarea.
... pero espera... en vez de imprimir el textarea, lo que hago es
crear un arreglo de tipo string y contar cada linea que se va cargando.
establezco un limite de 50 o 60 lineas y voy moviendo el indice del arreglo,
luego utilizo un for y envió cada pagina como un trabajo individual al printer.
-Puedes buscar la publicación como: Reporte con textarea en este mismo foro.

espero que te sirva.

Perfil MP  

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.3863s (PHP: -83% SQL: 183%)
Consultas SQL: 45 - Debug off - GZIP Activado