|
Hola,
El código de kdtill es totalmente correcto, y ocurre lo que él ya comenta, sale muy pequeño. A mi se me ha ocurrido otra cosilla que puede solucionarte el problema.
En lugar de pintar sobre el canvas de la impresora, pon un objeto TImage en tu formulario y hazlo invisible o bien crealo en tiempo de ejecución y cuando le den al botón pinta sobre el canvas del TImage, algo así:
PlannerCalendarGroup1.PaintTo(Image1.Canvas,0,0);
Luego te creas un QuickReport, pones una banda Title y en ella un control TQRImage con el tamaño que quieras que salga por la impresora y la propiedad Stretch a True, en el click de tu botón imprimir calendario el código quedaría más o menos de la siguiente forma:
begin
PlannerCalendarGroup1.PaintTo(Image1.Canvas,0,0);
FQuickReport1.QrImage1.Picture.Assign (Image1.Picture);
FQuickReport1.QuickRep1.Preview; // O .Print como prefieras
end
De esta forma te aseguras que sale del tamaño que tú quieras.
Un saludo.
__________________
Todos somos aficionados. La vida es tan corta que no da para más.
Guia de Estilos
|