Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Простой отчет. Как??? [D6, D7, WinXP]


Lazarius ©   (2005-09-16 14:36:00) 

Народ!!! Дайте плиз какой нибудь простой примерчик кода для печати на принтере какого нибудь бланка, ну или просто: два квадратика рядом, а в них текст и картинка. Плиз! Срочно надо.


ssk   (2005-09-16 17:02:00) [1]


> Lazarius   (16.09.05 15:10) [9]
> Да-а, скачал, установил fastreport
> И как вообще до него добраться то?


кидай на форму сам FastReport, кликай по нему 2 раза и попадешь в дизайнер. а еще смотри демки в самом компоненте.


Lazarius   (2005-09-16 15:10:00) [2]

Да-а, скачал, установил fastreport
И как вообще до него добраться то?


ssk   (2005-09-16 14:59:00) [3]

>HEXO4YXA

мне, честно говоря, когда возник вопрос об отчетах и я попробовал FastReport, ничего другого не захотелось. может QuickReport и хорош (а возможно и лучше Fast'а, не знаю), но до него уже руки не дошли.


HEXO4YXA   (2005-09-16 14:54:00) [4]

2ssk да конечно, описка...


ssk   (2005-09-16 14:51:00) [5]

FastReport


HEXO4YXA   (2005-09-16 14:45:00) [6]

или пользуй QuickeReports


Lazarius   (2005-09-16 14:42:00) [7]


> Word ?

И что это значит?? Мне надо, грубо говоря вывести текст из нескольки[ richedit и edit в красиво оформленном виде.


HEXO4YXA   (2005-09-16 14:42:00) [8]

Пример из Delphi Help:

This example uses a button and a memo on a form. When the user clicks the button, the content of the memo is printed, with a 200-pixel border around the page. To run this example successfully, you must add the Printers unit to the uses clause of your unit.

procedure TForm1.Button1Click(Sender: TObject);

begin
 with Printer do
 begin
   BeginDoc;
   Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                   200, 200, Memo1.Lines.Text);
   EndDoc;
 end;

end;


Вот так   (2005-09-16 14:41:00) [9]


Printer.BeginDoc();
Printer.Canvas.Квадратик(...);
Printer.Canvas.Квадратик(...);
Printer.Canvas.Текст(...);
Printer.Canvas.Картинка(...);
Printer.EndDoc();


msguns   (2005-09-16 14:37:00) [10]

Word ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо