Как распечатать StringList?

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

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

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

Printers + F1

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

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

Спасибо.

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

Так 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;

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