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

[Ricane]

Moinsen,

ich habe ein ähnliches Problem! Ich möchte ein Bild drucken und dann auf diesem Bild noch ein paar Textfelder... Mit diesem Quellcode druckt er das Bild ohne Problem!

Delphi-Quellcode:

  Printer.BeginDoc;
  With Printer.Canvas Do
  Begin
    Rect := Bounds(0, 0, Printer.PageWidth, Printer.PageHeight);
    StretchDraw(Rect, imgObjekt.Picture.Bitmap);
  End;
  Printer.Enddoc;

Wenn ich aber jetzt den Code für das Drucken der Textfelder einbinde, wird das Bild nicht mehr gedruckt, und die Textfelder viel zu klein...

Der code sieht jetzt so aus..... hat jemand eine Ahnung was da falsch läuft?

Delphi-Quellcode:

  Printer.BeginDoc;
  Printer.Canvas.Font.Name := 'MS Sans Serif';
  Printer.Canvas.Font.Height := 8;

  With Printer.Canvas Do
  Begin
    For I := 1 To AnzahlKompos Do
    Begin
      Kompo := FindComponent('Kompo' + IntToStr(I));
      L := (Kompo As TLabel).Left;
      O := (Kompo As TLabel).Top;
      Text := (Kompo As TLabel).Caption;
      TextOut(L, O, Text);
    End;
    Rect := Bounds(0, 0, Printer.PageWidth, Printer.PageHeight);
    StretchDraw(Rect, imgObjekt.Picture.Bitmap);
  End;
  Printer.Enddoc;

Grüsse,

Ricane