Como puedo controlar los margenes de la impresora para el richedit

[Neftali [Germán.Estévez]]

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.