Q&A

  • 메모에 있는 내용을 퀵레포트로 프린트...
안녕하세요...델파이를 접한지 1주일 되었거든요...]

검색 프로그램인데요..검색어 치믄 리스트박스에 제목이 나오고

리스트박스에 제목을 눌르믄 메모장에 그 내용이 나오거든요

그러니깐 Table 내용은 제목,분류,내용 으로 돼 있는거지요..

근데 메모장에서 미리보기가 힘들자나요(아예 안돼나??)

그래서 퀵리포트를 사용하는데 메모장에 있는 내용을 레포트로 불러와서

인쇄 미리보기 할려고요....

넘 초보라 흉들 보지 마시구 답변 좀 부탁 해요...









unit Unit3;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ComCtrls, ExtCtrls, StdCtrls, Buttons, Menus, Tabnotbk, quickrpt, Qrctrls;



type

TFrmComn2 = class(TForm)

QuickRep1: TQuickRep;

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

SummaryBand1: TQRBand;

QRExpr1: TQRExpr;

procedure QuickRep1BeforePrint(Sender: TQuickRep;

var PrintReport: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;



var

FrmComn2: TFrmComn2;



implementation

uses unit1;

{$R *.DFM}





procedure TFrmComn2.QuickRep1BeforePrint(Sender: TQuickRep;

var PrintReport: Boolean);

var aa7st : string;

begin

QuickRep1.DataSet := FrmComn.Q1;

QRLabel2.caption := FrmComn.edit2.Text;

QRExpr1.Lines := FrmComn.Memo1.lines;



end;



end.



//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

// 끝

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~





0  COMMENTS