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