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

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

Вывод информации на печать и её предварительный просмотр. [D6, Win95/98, WinXP]

ДСН ©   (2002-10-03 14:56:00) 

По возможности, сделайте пример вывода на печать (принтер) текста в рамке с заданной толщиной и предварительным просмотром печати. Заранее благодарен. Сергей.

---

opoloXAI   (2002-10-04 10:44:00) [1]

{я добавил на форму компонент TQuickRep, TMemo, TButton.
сдвинул QuickRep на форме так, чтобы его не было видно
(при этом св-во главной формы BorderStyle=bsSingle).
на компоненте QuickRep добавил Title,
на него положил TQRShape, TQRLabel}

unit mainUnit;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Qrctrls, QuickRpt, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
preViewButton: TButton;
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
QRShape1: TQRShape;
QRLabel1: TQRLabel;
procedure preViewButtonClick(Sender: TObject);
procedure Memo1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.preViewButtonClick(Sender: TObject);
begin
QuickRep1.Preview;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
QRLabel1.Caption:=Memo1.Text;
end;

end.

---

dimonf   (2002-10-03 16:02:00) [2]

Для печати используй компанент QReport, индивидуальное окно просмотра строй сам на TPanel. Рисуи с помощью TCanvas.

---

Наверх