Formular zentriert ausdrucken

[Metallicwar]

Hab mal wieder einen Hänger

Delphi-Quellcode:

var
x, y: Integer

Delphi-Quellcode:

         
begin
with Printer do
  begin
    BeginDoc;
    try
      bitmapFormular := Formular.GetFormImage;
      X := (Printer.PageWidth - bitmapFormular.Width) div 2; // was genau muss X sein???
      Y:= (Printer.PageHeight - bitmapFormular.Height) div 2; // was genau muss Y sein???
      //Bild herunterskalieren?
      //bitmap drucken?
    finally
      EndDoc;
    end;
  end;
end;