![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Простой отчет. Как??? [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 ?