Imprimir Tchart

[tarco35]

Hola a todos... mi cuestion es la siguiente: en una pantalla tengo 3 graficas de tipo TChart que me muestran como han cambiado datos en tres mediciones sucesivas. ¿ Como podria hacerlo para poder imprimir en 1 solo folio las 3 graficas de barras????
Gracias por su colaboracion.
(Delphi 6, TeeChar 4.04)

[ecfisa]

Hola tarco35.

Una posibilidad es esta propuesta: Imprimir el contenido de un Groupbox.

Como un ejemplo, podrías hacer:

Código Delphi [-]
var
  Printer: TPrinter;
begin
  Printer:= TPrinter.Create;
  try
    Printer.BeginDoc;          // X , Y  
    PrintControl(Printer, Chart1, 10, 50);
    PrintControl(Printer, Chart2, 400, 50);
    PrintControl(Printer, Chart3, 800, 50);
    Printer.EndDoc;
  finally
    Printer.Free;
  end;
end;

De acuerdo al tamaño de los Charts, tendrías que ajustar los valores X si los deseas en una línea o los Y si los deseas encolumnados.

Saludos.

[tarco35]

Gracias... funciona correctamente, pero lo que no me sale es escalar la salida para que en una pagina de impresion (apaisada) entren los 3 chart proporcionados y centrados....
Gracias