1:
2:
3:

Printer.BeginDoc; 
Printer.Canvas.CopyRect(Rect(0, 0, Img_Wurf.Width, Img_Wurf.Height), Img_Wurf.Canvas, Rect(0, 0, Img_Wurf.Width, Img_Wurf.Height)); 
Printer.EndDoc;					

1:
2:

TablePrintJob.Column[s].CellIcon[z] := TBitMap.Create;
TablePrintJob.Column[s].CellIcon[z].LoadFromFile('Dummy.bmp');					

1:
2:
3:
4:

[...]
Printer.Canvas.StretchDraw(Rect(tx,ty,tx+IWidth,ty+IWidth),TablePrintJob.Column[s].CellIcon[z]); // CellIcon ist nicht mehr TIcon sondern TBitmap
// sollte ebenfalls für Draw gelten
[...]					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

// TImage
Printer.Draw(x,y,Image);
// TImageList
ImageList.Draw(Printer.Canvas,x,y,Index,IsColorPrinter(PrinterHandle));

// Falls benötigt:
// FUNCTION IsColorPrinter(hPrinter: THandle): Boolean;
//  begin
//   result := GetDeviceCaps(hPrinter,BITSPIXEL) * GetDeviceCaps(hPrinter,PLANES) = 1;
// end;