Текущий архив: 2003.08.18;
Скачать: 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 вся ветка
Текущий архив: 2003.08.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.006 c
