Como puedo controlar los margenes de la impresora para el richedit

[[duilioisola]]

En esto no te puedo ayudar... No se que hace internamente TRichEdit.Print.

Supongo que se podrá hacer algo con TPrinter.PageHeight y TPrinter.PageWidth.

Del help de Delphi 6:

The VCL TPrinter object encapsulates details of Windows printers. To get a list of installed and available printers, use the Printers property. The CLX TPrinter object is a paint device that paints on a printer. It generates postscript and sends that to lpr, lp, or another print command.
Both printer objects use a TCanvas (which is identical to the form's TCanvas) which means that anything that can be drawn on a form can be printed as well. To print an image, call the BeginDoc method followed by whatever canvas graphics you want to print (including text through the TextOut method) and send the job to the printer by calling the EndDoc method.

This example uses a button and a memo on a form. When the user clicks the button, the content of the memo is printed with a 200-pixel border around the page.
To run this example successfully, add Printers to your uses clause.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  r: TRect;
  i: Integer;
begin
  with Printer do
    begin
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
      for i := 0 to Memo1.Lines.Count do
       Canvas.TextOut(200,200 + (i * Canvas.TextHeight(Memo1.Lines.Strings[i])),Memo1.Lines.Strings[i]);
      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;
    end;
end;

Además de esto (imprimir directamente), supongo que te servirá mirar un poco el QuickReport.
Es cuestion de agregar una banda de impresion y repetirla tantas veces como desees.

[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.

[cmm07]

Amigo el problema es que estoy trabajando con el JVRichEdit, y no encuentro esa parte de instruccion en el componente, en el procedure Print del JVRichEdit, estoy demasiado desesperado, ya no se que hacer he buscado por todos lados y no hay solución alguna, ¿que puedo hacer?, cada intento es fallido, ayudame

gracias.

[cmm07]

entonces, en quick report, ¿Como puedo duplicar una imagen?
o como repetiralo?