Скачать: CL | DM;

Как распечатать StringList?   Найти похожие ветки 

← →
Zheks   (2003-08-04 09:29) [0]

Доброе утро Мастера!
Подскажите пожиалуйста, как распечатать таблицу.

---

← →
Palladin ©   (2003-08-04 09:39) [1]

Printers + F1

---

← →
Zheks   (2003-08-04 10:41) [2]

Информация там полезная, но разобраться там я не смог, если есть у кого-то знания по этому вопросу, время и желание, помогите мне...

Спасибо.

---

← →
Zergling ©   (2003-08-04 11:51) [3]

>> Доброе утро Мастера!
>> Подскажите пожиалуйста, как распечатать таблицу.

Так StringList или таблицу?! Определись в вопросе.

Пример печати через TMemo (StringList)

procedure TFormWarehouse.PrintLogErrorExecute(Sender: TObject);
var
I: Integer;
PrintText: TextFile;
begin
Inherited;
if PrintDialog.Execute then
begin
AssignPrn(PrintText);
ReWrite(PrintText);
try
Printer.Canvas.Font := MemoLogError.Font;
for I := 0 to MemoLogError.Lines.Count - 1 do
WriteLn(PrintText, MemoLogError.Lines[I]);
finally
CloseFile(PrintText);
end;
end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.005 c