вариантов много...
1. написать процедуру:
Код:
DrawTable(ACanvas: TCanvas);
в ней рисовать таблицу с разным фоном ячеек.
при выводе на форму передавать Canvas формы, при выводе на принтер передавать Canvas принтера.
2. использовать TDrawGrid. в нем раскришивать ячейки вручную. использовать метод Print формы для вывода на принтер.