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]

[Memo]

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;       <-- Darum tut es beim ersten aber nicht beim zweiten mal
      Canvas.FrameRect(r);
      EndDoc;
    end;
  Druck.Caption := '&Druck wiederholen';
  end;

[Remote1]

warum nimmst du keinen printersetupdialog mit hinein
ist doch viel einfacher
if printersetupdialog1.execute then ....
und da kannst du ja auch gleich angeben wie viel ausdruck du haben möchtest
ps: uses printer hast du mit drin, oder?? (würde ja sonst nicht funktuionieren)

kannst auch mal probieren die font einstellungen wie größe etc. vor begindoc zu schreiben

[Memo]

Zitat:

Zitat von Remote1

warum nimmst du keinen printersetupdialog mit hinein
ist doch viel einfacher
if printersetupdialog1.execute then ....
und da kannst du ja auch gleich angeben wie viel ausdruck du haben möchtest

Ähmmm, schau mal auf die Zeile im Code, an die ich den Kommentar geschrieben habe. Das Problem lag ein wenig woanders :wink: