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]