[xslibris]

Простите за 'простыню' -

Код:

var
  img:TBitmap;
  sohr:string;
  png:TPngObject;
begin
 sohr:='отчёты\'+TntDBGrid1.fields[2].asstring+'.png';
 img:=TBitmap.Create;
 img.Height:=600;
 img.Width:=800;
 img.Transparent := False;
 img.Canvas.Brush.Color := clWhite;
 ...
//Нижняя таблица
 img.Canvas.MoveTo(30,390);
 img.Canvas.LineTo(750,390);
 img.Canvas.MoveTo(30,510);
 img.Canvas.LineTo(750,510);
 ...
 img.Canvas.MoveTo(675,390);
 img.Canvas.LineTo(675,510);
 img.Canvas.MoveTo(750,390);
 img.Canvas.LineTo(750,510);
 ...
 //Текст нижней части
 img.Canvas.Font.Size := 11;
 img.Canvas.Font.Style := [fsBold];
 img.Canvas.TextOut(30,305,'ТОО "Тұрғын үй жөндеу - Қаратау" РНН:211000211973.');
 img.Canvas.TextOut(500,305,'ИИК: KZ946010161000159806');
 img.Canvas.TextOut(30,325,'"Народный Банк Казахстана". БИК:HSBKKZKX');
 img.Canvas.TextOut(30,345,'Плательщик: '+TntDBGrid1.fields[2].asstring);
 img.Canvas.TextOut(30,365,'Адрес: '+TntDBGrid1.fields[1].asstring);
 ... 
 img.Canvas.TextOut(680,450,'К оплате');
 img.Canvas.TextOut(680,490, TntDBGrid1.Fields[4].asstring+' тг.');
 img.Canvas.Font.Style:=[];
 img.Canvas.Font.Size:=10;
 img.Canvas.TextOut(30,520,'Просим Вас оплатить задолжность в течении 10 дней.');
 img.Canvas.TextOut(30,540,'Оплата счёта производится через кассу АО "Казпочта" г. Каратау.');
 img.Canvas.TextOut(30,560,'По общим вопросам обращаться: ТОО "Тұрғын үй жөндеу - Қаратау" г. Каратау ул. Шейна №47');
 png:=TpngObject.Create;
 png.Assign(img);
 png.SaveToFile(sohr);
 img.Free;
 png.Free;
end;