Problem mit DRUCKEN

[isabell]

Hallo Leute,

möchte nur eine völlig simple Seite ausdrucken, funktioniert auch wunderbar ...
... aber wiederhole ich den Ausdruck, sind die Schriften nur noch augefüllte Vierecke

zuerst dachte ich es ist vom Drucker abhängig, aber mit zwei anderen Modellen passiert das selbe

Muß nach dem Druck etwas gelöscht oder vor dem Druck initialisiert werden ???

Mein procedure sieht so aus :

Delphi-Quellcode:

procedure TForm1.Tdruck(Sender: TObject);
var
  r: TRect;
  i: Integer;
begin
  with Printer do
    begin
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
      Canvas.Font.Style := Canvas.Font.Style + [fsBold];
      Canvas.Font.Size := 18;
      i := trunc(Pagewidth/2)-200;
      Canvas.TextOut( i,500, 'Test');
      Canvas.Font.Size := 14;
      Canvas.TextOut( 300,1000, druvar1);
      Canvas.TextOut( 300,(PageHeight - 1000), 'Datum: '+DateToStr(Date));
      Canvas.TextOut( 300,(PageHeight - 600), 'Verantwortlicher: ');
      Canvas.Font.Size := 8;
      i := trunc(Pagewidth/2);
      Canvas.TextOut( i,(PageHeight - 300), druvar2);
      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;
    end;
  Druck.Caption := '&Druck wiederholen';
  end;

Vielen Dank im voraus.
Gruß Isabell

[edit=sakura]Delphi-TAGs gesetzt Mfg, sakura[/edit]