Hallo,
cih weiß wie man einen Text druckt, aber nicht wie man grafik und text druckt, also habe ich im Forum gesucht und habe mir das zusammengeschrieben:
Delphi-Quellcode:
with Printer do
begin
BeginDoc;
Canvas.Font.name := 'Arial';
Canvas.Font.Size:= 10;
i2 := Canvas.TextHeight('A');
for i:=0 to druckertext.Count -1 do
Canvas.TextOut (100, i2*i + 100, druckertext[i]);
canvas.StretchDraw(rect(10,10,10,10), Image_email.Picture.Graphic);
Canvas.Brush.Color := clBlack;
EndDoc;
end;
der text wird gedruckt aber nicht die grafik, was mach ich falsch?