Ver Mensaje Individual
  #1  
Antiguo 28-04-2006
rafita rafita is offline
Miembro
 
Registrado: ago 2003
Ubicación: Cuenca- España.
Posts: 309
Reputación: 21
rafita Va por buen camino
Imprimir un formulario

Hola compañeros,

Voy a explicar mi problema. Pretendo imprimir el contenido de la ficha activa, para ello pongo un botón y utilizo el siguiente código:
Código:
procedure TFResumenAnual.BImprimirClick(Sender: TObject);
begin
  // se imprime en horizontal, directamente desde el formulario (pantalla)
  if PrinterSetUpDialog1.Execute then
     begin
       FResumenAnual.PrintScale:=poPrintToFit;
       FResumenAnual.Print;
     end;
end;
La utilización del PrinterSetUpDialog es para poder elegir la orientación vertical, más adecuada al tamaño del formulario.

El problema es el siguiente:
* Si el formulario es "disponible" da error de violación de memoria.
* Si el formulario se "crea automáticamente", entonces no da error, pero sólo imprime las partes creadas en diseño, no las que se crean o modifican en ejecución (simplemente asignar un valor a un Label).

El código lo he utilizado una vez pero el formulario en cuestión era el principal del proyecto, y en esa ocasión funcionaba perfectamente, imprimiento el contenido exacto de la pantalla.

¿Alguien tiene alguna idea?

Gracias, y hasta luego
__________________
Rafita.
Responder Con Cita