Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-06-2011
Tortuguica Tortuguica is offline
Miembro
 
Registrado: sep 2010
Ubicación: Elche, España
Posts: 46
Poder: 0
Tortuguica Va por buen camino
La impresión real es distinta al PreviewModal en QuickReport

Hola, amigos del Club Delphi:
Ante todo, gracias por prestarme atención. En segundo lugar, un aviso: sigo siendo un poco (bastante) bisoño en todo esto del mundo de la programación. Aprovecho este prólogo para pedir perdón por la extensión de este post. Y, ahora sí, la consulta en cuestión:
Estoy diseñando un editor de textos. Para ser más exacto, de exámenes de mecanografía. Todos los exámenes se muestran sobre una única plantilla compuesta, a saber, por el encabezado, en el que aparece el título del examen, y el texto que conforma el cuerpo del examen. El texto se carga en un TMemo desde el archivo *.txt donde está guardado el examen. El examen se muestra sobre el formulario correctamente.
Espero fervientemente que nadie se lleve las manos a la cabeza cuando prosiga leyendo la exposición de mis cuitas. El problema llega a la hora de imprimir el examen. Se me ha ocurrido utilizar un TQuickRep, pero sin bandas de detalle. Esto es: inserto una única banda (de tipo cabecera) y en ella coloco un TQRLabel (para el título) y un TQRRichText (utilizo esta clase en lugar del TQRMemo porque, aunque, por ahora, la impresión será en blanco y negro, puede que en un futuro haya que hacerla a color). Además, cuando se crea el formulario en el que está contenido el TQuickRep, aplica al TQRRichText la misma fuente y el mismo tamaño de fuente del examen. Como el TQRMemo no tiene la propiedad Text, para cargar el cuerpo del examen en el TQRRichText lo hago agregando las líneas una a una a partir de las líneas del TMemo. Para mí, lo ideal hubiera sido escribir

TQRRichText.Text:=TMemo.Text

pero Delphi no me deja, claro, así que he tenido que utilizar el siguiente código

for i:=0 to TMemo.Lines.Count-1 do
TQRRichText.Lines.Add(TMemo.Lines[i]);


Bueno, en todo caso, cuando le doy a PreviewModal me lo muestra tal y como aparece en el formulario. Cuando no aparece igual, ay, es cuando lo imprime de verdad... virtual. Como no tengo impresora en casa, utilizo PrimoPDF, NitroPDF y Microsoft XPS Document Writter para hacer las pruebas, y todas me dan el mismo resultado: muchas líneas, que en el PreviewModal se mostraban correctamente, se truncan y la última parte de la línea se convierte en una nueva línea. Para que os hagáis una idea, imaginad que tuviera que imprimirse este texto:

Con diez cañones por banda,
viento en popa a toda vela

y sale esto:

Con diez cañones por
banda,
viento en popa a toda
vela


He dejado el margen derecho del TQuickRep a 0, y he ampliado el TQRRichText hasta el borde derecho del TQuickRep, pero no hay forma. Por favor, ¿se le ocurre a alguien la forma de solucionar esto? Lo olvidaba: utilizo el Delphi 2010 y el QuickReport5042.

Os agradezco por adelantado vuestro interés y os pido disculpas por el tostón que os he metido. Un saludo.

Última edición por Tortuguica fecha: 21-06-2011 a las 19:23:36. Razón: Me faltaba algo.
Responder Con Cita
  #2  
Antiguo 22-06-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Si no sale igual el Preview y el resultado impreso se tiene que modificar la configuracion de la hoja del qreport, dandole doble click salen las caracteristicas.
Saludos
__________________
Siempre Novato
Responder Con Cita
  #3  
Antiguo 22-06-2011
Tortuguica Tortuguica is offline
Miembro
 
Registrado: sep 2010
Ubicación: Elche, España
Posts: 46
Poder: 0
Tortuguica Va por buen camino
Ya lo había hecho

Hola, Caral. Gracias por responderme. Te cuento: ya había configurado los márgenes del TQuickRep. Los tenía a 1 cm a la izquierda y 1 cm a la derecha. Así que se me ha ocurrido que, si la impresora no tenía más margen, adaptarme a la impresora, o sea, que he aumentado el margen hasta 2,5 cm a cada lado, reduciendo también la anchura del examen en el formulario con el fin de que las líneas sean las mismas tanto en el formulario como en el quickrep. Pero nada, sigo obteniendo el mismo resultado. No obstante, voy a hacer pruebas con distintos márgenes y tamaños a ver si cuela por algún sitio.
Gracias de nuevo por tu interés. Un saludo.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
¡¡¡Ayuda con Impresion en QuickReport!!! onlytk Impresión 8 16-08-2018 21:27:09
Impresión Distinta al Preview caramelillo Impresión 0 08-03-2007 00:04:45
2 Detail con fuente de datos distinta - QuickReport MarcoMae Impresión 1 04-07-2006 00:20:42
Impresion con QuickReport 4 neftafly Impresión 9 14-07-2005 17:57:45
Impresion con QuickReport rgc Impresión 8 13-07-2005 12:24:14


La franja horaria es GMT +2. Ahora son las 08:25:07.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi