Memo text ausdrucken

[Finki]

Hey,

ich schreib grad eine art texteditor, eigentlich eine Memo componente und ein paar buttons.

Auf jedenfall will ich jetzt den Text in der Memo ausdrucken.

Dann kommt immer ein Fehler und eine verlinkung auf

printers.pas

Code:

//Raise error if Printer.Printing is not Value
procedure TPrinter.CheckPrinting(Value: Boolean);
begin
  if Printing<>Value then
  begin
    if Value then
      raise EPrinter.Create('Printer is not printing')
    else
      raise Eprinter.Create('Printer is printing');
  end;
end;

ich habs auch mal ganz simple gemacht und aus dem Lazarusforum den example code rauskopiert.

http://wiki.lazarus.freepascal.org/Using_the_printer

Code:

procedure TForm1.PrintBtnClick(Sender: TObject);
const
  LEFTMARGIN = 100;
  HEADLINE = 'I Printed My Very First Text On ';
var
  YPos, LineHeight, VerticalMargin: Integer;
  SuccessString: String;
begin
  with Printer do
  try
    BeginDoc;
    Canvas.Font.Name := 'Courier New';
    Canvas.Font.Size := 10;
    Canvas.Font.Color := clBlack;
    LineHeight := Round(1.2 * Abs(Canvas.TextHeight('I')));
    VerticalMargin := 4 * LineHeight;
    // There we go
    YPos := VerticalMargin;
    SuccessString := HEADLINE + DateTimeToStr(Now);   
    Canvas.TextOut(LEFTMARGIN, YPos, SuccessString);
  finally
    EndDoc;
  end;
end;

gleicher Fehler!!!

kann mir einer sagen warum?

im vorraus vielen dank für die antwort (hoffentlich);D

lg

Finki

[baumina]

Zitat:

Zitat von Finki (Beitrag 1220430)

Dann kommt immer ein Fehler und eine verlinkung auf

printers.pas

...gleicher Fehler!!!

Sicherlich verrätst du uns auch noch welcher Fehler das ist und an welcher Stelle genau der auftritt.

[Finki]

Sicher.

Da kommt einfach eine Meldung das ein Fehler in printers.pas in Zeile 504 aufgetreten ist.

[DeddyH]

Und lautet der Fehler

Zitat:

Printer is printing

oder

Zitat:

Printer is not printing

? Eins von beiden kann es ja eigentlich nur sein.

[baumina]

OK, mutmaßen wir mal weiter. Du kannst dein Projekt erst gar nicht kompilieren, weil ein Fehler in der Printers.pas in Zeile 504 auftritt, von dem Du uns nun sicher auch noch die Compiler-Fehlermeldung mitteilen willst.

[Finki]

Sry, also komplementieren geht Programm startet auch.

Aber wenn ich dann was drucken will kommt ein Dialog wo darauf hin gewissen wird das ein error in printers.pas in 504 aufgetreten ist mehr nicht.

[DeddyH]

Tu Dir und uns mal einen Gefallen: wenn die Fehlermeldung kommt, drückst Du STRG+C, erstellst hier einen neuen Beitrag und drückst dort STRG+V. Damit sehen wir dann den ganz genauen Wortlaut.

[Finki]

Ich kann nix aus der Fehler Meldung raus kopieren. Aber ich kann euch ein Bild (Screenshot) hochladen. Oder was is besser kann beides erst daheim machen (in 15min).

[Finki]

Also hier ist die Meldung

[DeddyH]

Interessant, das sieht nach Speicherfehler aus. Die Printer-Instanz ist aber gültig, oder muss die in Lazarus von Hand instanziert werden?