• Viernes 5 de Julio de 2024, 07:37

Autor Tema:  Impresión De Una Ficha Con Trichedit Entre Otros  (Leído 1045 veces)

Pernorak

  • Nuevo Miembro
  • *
  • Mensajes: 8
    • Ver Perfil
Impresión De Una Ficha Con Trichedit Entre Otros
« en: Domingo 27 de Mayo de 2007, 18:48 »
0
Hola, soy nuevo aqui espero poder ayudarles y que ustedes lo puedan conmigo. Sin más comienzo con la descripción de mi problema:
-PROBLEMA: Tengo una ficha que contiene varios controles TEdit, TRichEdit, etc.. y algunos gráficos (TImage) y quiero imprimirla

INTENTOS REALIZADOS:
1º) He usado el método
Print() con el que cuenta la ficha, pero al imprimir no se muestra el contenido de los controles TRichEdit.
2º) He probado a usar el método Print() del TRichEdit junto con el anterior, pero lo que hace es imprimir la ficha con los TRichEdit vacios, y a continuación, en una hoja distinta el contenido del TRichEdit.

- Estoy con el Proyecto Fin de Carrera, y despues de hacer todo el programa, este escollo me tiene retenido, les agradecería si me pudiesen echar una mano.
1 Saludo desde Almería  :hola:

Pernorak

  • Nuevo Miembro
  • *
  • Mensajes: 8
    • Ver Perfil
Re: Impresión De Una Ficha Con Trichedit Entre Otros
« Respuesta #1 en: Miércoles 30 de Mayo de 2007, 14:04 »
0
B)  Despues de mucho currar y pensar en caminos alternativos, he logrado la impresión de una Form con controles RichEdit (entre otros..) de la siguiente manera:

1ª) Crear una imagen de la ficha que pretendes imprimir. Lo que he hecho es copiar mi ficha de la Aplicación en otra, cambiar su color de fondo a Blanco, quitar efectos de 3d de algunos controles, etc.. vamos en definitiva lo que he considerado necesario para que la copia de esta form sea lo que yo quiero que se imprima.

2º) Impresión de la ficha que he preparado: Como la función Print() fallaba me ingenié el siguiente camino alternativo:
2.1.- Crear una imagen de la ficha (Bitmap)-> Ver un hilo que abrí a tal efecto.
2.2.- Crear una tercera ficha en la que se incluya un control Image que ocupe todo el area cliente de la nueva ficha
2.3.- Cargar en dicho control el Bitmap
2.4.- Imprimir esta tercera ficha usando la función Print():
Form3->Print();

 :kicking: Os puedo asegurar que funciona.  

Nota: Yo en vez de usar el Bitmap directamente, lo que hago es guardarlo en un fichero.bmp, luego para cargar el fichero en el control image uso:
Form3->Image->Picture->LoadFromFile("C:\ImagenForm2.bmp");
Pero es mejor cargar directamente el Bitmap en el control Image, ahorrándote el proceso de guarda/carga en fichero.bmp. Para hacerlo de esta manera usar esta instrucción:
Form3->Image->Picture->Bitmap->Assign(Bitmap);

Pd-> Agradecimientos a todos aquellos que han hecho posible que siga avanzando con el proyecto.
1 Saludo. :)