Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Imprimir Textarea
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje 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
 



 
alan - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Imprimir Textarea 
 
Sube el código que hayas intentado. A partir de ahí podemos decirte.
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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

 



 
alan - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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.
 



 
alessandri - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Imprimir Salto De Linea? De Un Textarea? CanihoJR General 1 Miercoles, 30 Diciembre 2009, 23:37 Ver último mensaje
soplo
No hay nuevos mensajes Textarea Para DataSource frajanic Retos de programación 6 Viernes, 15 May 2015, 10:55 Ver último mensaje
shordi
No hay nuevos mensajes Alineamiento Por Codigo De Un Textarea xmuno Controles/Librerías/Componentes 3 Viernes, 07 Agosto 2015, 08:42 Ver último mensaje
Shell
No hay nuevos mensajes Se Desarma El Texto! De Un Txt A Un Textarea! v3ctor General 8 Jueves, 03 Agosto 2017, 19:47 Ver último mensaje
jsbsan
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
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



  

 

cron