Ich hab das etwas abgeändert, trotzdem bleibt die Textausgabe unscharf,
wenn man von TImage.canvas direkt auf Printer.Canvas ausdruckt
Delphi-Quellcode:
procedure TForm5.BitBtn1Click(Sender: TObject);
Var rect,rect1:TRect;
begin
rect1:=Bounds(0,0,Druckvorschau.width,Druckvorschau.height);
Rect:=Bounds(0,0,Printer.PageWidth,printer.PageHeight);
Printer.BeginDoc;
with printer.Canvas do begin
printer.Canvas.CopyRect(Rect,DruckVorschau.Canvas,Rect1);
end;
printer.enddoc ;
end;
Wahrscheinlich muss man das irgendwie anders machen
Vielleicht weiss das einer von euch ?
