Drucken von Bitmaps / Größenanpassung an Druckercanvas / Wie

[Steve]

Servus,

die Schrift ist so winzig, weil Du Height statt Size geändert hast.

Versuch mal Folgendes: Erst Grafik, dann alles, was mit Text zu tun hat..

Delphi-Quellcode:

Printer.BeginDoc;
With Printer.Canvas Do
Begin
  StretchDraw(Printer.Canvas.ClipRect, bmp);
  Font.Name := 'MS Sans Serif';
  Font.Size := 8;
  {.. Textausgabe ..}
End;
Printer.Enddoc;

Bei mir gings so dann. Warum's andersum nicht ging, ist mir leider auch nicht ganz klar
[edit]Habe als Rect lieber "TCanvas.ClipRect" benutzt.[/edit]

Ich hoffe, Dein Problem ist damit trotzdem (wenigstens teilweise) gelöst

Gruß
Stephan