Delphi печать
Автор DmitryP задал вопрос в разделе Другие языки и технологии
вывод на печать из базы даных delphi. и получил лучший ответ
Ответ от Дима[гуру]
Вот процедура с готовой программы, вывод на печать со StringGrid.
В таблице 15 столбцов. Распечатка производится выделенной строчки в таблице. Результат печати примерно такой:
№____________________1
Фамилия______________ИВАНОВ
Имя__________________ИВАН
Отчество_____________ИВАНОВИЧ
Пол__________________МУЖСКОЙ
Дата рождения________09.04.1988
Рост_________________174
Вес__________________61
Национальность_______РУССКИЙ
Образование__________СРЕДНЕЕ ТЕХНИЧЕСКОЕ
Профессия____________ПРОГРАММИСТ
Место проживания_____Г. АЛМАТЫ УЛ. АБАЯ-РОЗЫБАКИЕВА
Цвет волос___________ЧЕРНЫЙ
Цвет глаз____________КАРИЙ
Примечание___________УВЛЕЧЕНИЯ - РЭП МУЗЫКА, ШАХМАТЫ, ФИЛЬМЫ
Телефон______________87272397425
( На бумаге будет немного ровнее 🙂 )
procedure TForm1.SpeedButtonPrintClick(Sender: TObject);
var i:integer;
Str1,Str2:string;
const TTT='_____________________';
begin
if StringGrid1.Cells[0,StringGrid1.Row]='' then Exit;
if PrintDialog1.Execute then
With Printer do
begin
BeginDoc;
Canvas.Font:=StringGrid1.Font;
For i:=0 to 15 do
begin
Str1:=StringGrid1.Cells[i,0]+Copy(TTT,1,21-length(StringGrid1.Cells[i,0]));
Str2:=StringGrid1.Cells[i,StringGrid1.Row];
Canvas.TextOut(100,i*100,Str1);
Canvas.TextOut(1050,i*100,Str2);
end;
EndDoc;
end;
end;