Форум: "Основная";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
ВнизВывод информации на печать и её предварительный просмотр. Найти похожие ветки
← →
ДСН (2002-10-03 14:56) [0]По возможности, сделайте пример вывода на печать (принтер) текста в рамке с заданной толщиной и предварительным просмотром печати. Заранее благодарен. Сергей.
← →
dimonf (2002-10-03 16:02) [1]Для печати используй компанент QReport, индивидуальное окно просмотра строй сам на TPanel. Рисуи с помощью TCanvas.
← →
opoloXAI (2002-10-04 10:44) [2]{я добавил на форму компонент 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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c