Cita:
Empezado por duilioisola
No se que hace internamente TRichEdit.Print.
|
Bueno, para eso está la VCL.
Se puede mirar el método:
Código Delphi
[-]procedure TCustomRichEdit.Print(const Caption: string);
de la unit ComCntrls.pas
De todas formas se puede cambiar la línea:
Código Delphi
[-]r := Rect(0,0,(Pagewidth - 200),(PageHeight - 200));
Añadiendo como X,Y un 0,0 y se ve como el recuadro se dibuja más arriba y a la izquierda (pero aun con márgenes), no en la esquina superior izquierda de la página. Esos márgenes son a los que yo me refiero y me parece que "no son modificables".
Si se escribe:
Código Delphi
[-]r := Rect(-10,-10,(Pagewidth - 200),(PageHeight - 200));
Lo que se aprecia es que la parte superior del recuadro no se ve. Es decir, la impresora no ha podido pintar el recuadro.