Memo text ausdrucken

[Finki]

Gut jetzt kommt der fehler siehe Bild und da steht

Delphi-Quellcode:

function TControl.GetText: TCaption;
var
  len: Integer;
  GetTextMethod: TMethod;
begin
  // Check if GetTextBuf is overridden, otherwise we can call RealGetText directly
  Assert(Assigned(@Self.GetTextBuf), 'TControl.GetText: GetTextBuf Method is Nil');
  GetTextMethod := TMethod(@Self.GetTextBuf);  //<-- VERWEIS AUF DIESE ZEILE
  if GetTextMethod.Code = Pointer(@TControl.GetTextBuf) then begin
    Result := RealGetText;
  end
  else begin
    // Bummer, we have to do it the compatible way.
    DebugLn('Note: GetTextBuf is overridden for: ', Classname);
    len := GetTextLen;
    if len = 0 then begin
      Result := '';
    end
    else begin
      SetLength(Result, len+1); // make sure there is room for the extra #0
      FillChar(Result[1], len, #0);
      len := GetTextBuf(@Result[1], len+1); 
      SetLength(Result, len);
    end;
  end;
end;

[Finki]

Juhu ich kann drucken zur Fehler Behebung

Erster Fehler war das

Printer: TPrinter; Das muss wie einige schon gesagt haben raus

Und der Fehler der darauf hin kam
lag daran das die Memocomponente Memo hieß damit hat Lazarus irgendwie Probleme

Jetzt hab ich noch eine Frage wie kann ich sagen das unten in der mitte auf der Seite (A4) die gedruckt wird zB -Seite 1- stehen soll

Weil wenn ich sage das soll bei 90, 2550 des geht nicht

[baumina]

< hat sich erledigt>

[Finki]

Hey ich danke nochmal allen die sich die Mühe gemacht haben und mir geholfen haben