Среда, 19.12.2018, 10:17
Приветствую Вас Гость

LabSoft

Меню сайта
Категории каталога
Статьи по кодингу [24]
Материалы по кодингу
КреатиFF [144]
Рассказы, истории, анекдоты...
Разное [8]
Советы, трюки, полезные рекомендации, статьи о новом и забытом старом...
Наш опрос
Как Вы узнали о нас?
Всего ответов: 27
Главная » Статьи » Статьи по кодингу

Печать текста
//текст на печать
uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject) ;
var
F, F2: TextFile;
i, j: Integer;
begin
AssignPrn(F) ;
Rewrite(F) ;
Writeln(F, RichEdit1.Lines[0]) ;
for i:=1 to RichEdit1.Lines.Count-1 do
begin
if Printer.PageNumber<2 then
Writeln(F, RichEdit1.Lines) ;
if Printer.PageNumber>1 then
begin
CloseFile(F) ;
Break;
end;
end;

AssignPrn(F2) ;
Printer.Orientation:=poLandscape;
Rewrite(F2) ;
for j:=i to RichEdit1.Lines.Count-1 do
Writeln(F2, RichEdit1.Lines[j]) ;
CloseFile(F2) ;
end;

Категория: Статьи по кодингу | Добавил: Jimmy (31.01.2008) | Автор: Unknown
Просмотров: 356 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Имя *:
Email *:
Код *:
Форма входа
Поиск
Друзья сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0