 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Print, Проблемы 
| Liandry |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 13 Регистрация: 22.4.2003 Репутация: нет Всего: нет |
Всем доброе время суток...
Значится проблема такая. Я хочу напечать "отчет" из формы. Если пишешь Form.Print - печатается изображение формы, как она на самом деле есть... Как мне сделать чтобы она печатала только текст который надо(из определенного Label'a, или из TStrnig'a или от туда и от туда). Да и как мне можно расположить на листе, где что будет, и как масштабировать...  заранее спосибо! (желательно более мение подробно)  |
|||
|
||||
Загрузка ...
| Sarge |
|
|||
 Новичок Профиль Группа: Участник Сообщений: 20 Регистрация: 24.5.2003 Где: Москва, флотская улица, дом 13 Репутация: нет Всего: нет |
Легко
assingprn(var F:Textfile); |
|||
|
||||
| Sarge |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 20 Регистрация: 24.5.2003 Где: Москва, флотская улица, дом 13 Репутация: нет Всего: нет |
вернее
uses printers; var f:textfile; begin AssignPrn(F); Rewrite(F); WriteLn(F, Edit1.text ); //EDIT1.text - Строка. System.CloseFile(f); end; |
|||
|
||||
| Sarge |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 20 Регистрация: 24.5.2003 Где: Москва, флотская улица, дом 13 Репутация: нет Всего: нет |
Ну вот, а ещё можно Добавить пару строк вот так:
Writeln(f, 'Bla-Bla-Bla'); ИЛИ распечатать файл. Вот таким изащренным методом, но возможно это не рационально, хотя ... var f,FL:textfile; Ln:string; begin AssignFile(fL, 'Файл.TXT'); reset(fL); AssignPrn(F); Rewrite(F); While not eof(fL) do begin readln(fL,ln); Writeln(F,Ln); end; closefile(f); System.CloseFile(fL); end; |
|||
|
||||
| Sarge |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 20 Регистрация: 24.5.2003 Где: Москва, флотская улица, дом 13 Репутация: нет Всего: нет |
А можно попробовать и через класс Tprinter
var Pr:TPrinter; begin Pr.Create; //А дальше не знаю, мне в лом. end; |
|||
|
||||
| Liandry |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 13 Регистрация: 22.4.2003 Репутация: нет Всего: нет |
Значится лучше свего это пользоватся Printer.Canvas. Очень похоже на простое рисование и размещение текста (как в pascal'e рисуешь - также)... А то что ты описал конечно можно, но долго!
|
|||
|
||||
| Mikel |
|
|||
 Опытный  Профиль Группа: Участник Клуба Сообщений: 882 Регистрация: 30.3.2002 Где: Саратов Репутация: 1 Всего: 2 |
Есть ещё вкладка QReport. Там можно сделать все на QReport и распечатать без проблем, но я не пробовал.
-------------------- ...so remember, it's better to burn out than to fade away |
|||
|
||||
| dm9 |
|
|||
 Дмитрий Копытин Профиль Группа: Vingrad developer Сообщений: 3876 Регистрация: 22.7.2002 Где: Москва Репутация: 6 Всего: 137 |
А я бы кинул всё в Ворд и там распечатал. Пара моих умных(?) мыслей по этому поводу - в соседнем топике (Delphi&Word)
|
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0482 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |