안녕하세여. 타락임다..^^



uses QRprntr;

...............

procedure TForm1.ButtonClick(Sender: TObject)

begin

QuickRep1.Page.PaperSize := Custom;

QuickRep1.Page.Length := 10;

QuickRep1.Page.Width := 20;

end;



즐푸하세여...



왕초보 타락천사.. ^__________^

그러내요

지금 그렇게 프로그램했슴다.



잘되긴 한데 어쩐지.....

첨단시대에 무시칸방법 같아서 찜찜허내요



다우에 문의 했더니

자기네들두 이해않되는 문제라네요 쩝





조언과 의견주신 유래카와 타락님께 감사 드립니다..





즐거운 하루되시길.....

PaperSize : TQRPaperSize 이고

TQRPaperSize는 열거형입니다..

그러니

QuickRep1.Page.PaperSize := [A4];

QuickRep1.Page.PaperSize := [Costom];

로 해야할 것 같은데요..

그럼 20000



김정식 wrote:

> A4와 전산용지(연속)를

> 경용으로 사용하는 프린터에

> A4 LandScape로 디자인한 Report를

> 인쇄하고자 합니다.

> 그런데 코딩으로 용지선택(A4,Custom)를 할수 없네요

>

> QuickRep1.Page.PaperSize := A4;

> QuickRep1.Page.PaperSize := Costom;

> 이렇게 코딩했더니 컴파일 에러가 나네요.

> 해결방법을 아시는 분은 꼭좀 알려주시길.....

>

알려주신데로

QuickRep1.Page.PaperSize := [A4];

과 같이 기술해도 Compile Error가 나서 다시



type

TQRPaperSize = (Default, Letter, LetterSmall, Tabloid, Ledger, Legal,

Statement, Executive, A3, A4, A4Small, A5, B4, B5, Folio,

Quarto, qr10X14, qr11X17, Note, Env9, Env10, Env11, Env12,

Env14, CSheet, DSheet, ESheet, Custom);

var

PaperSize : TQRPaperSize;

begin

QuickRep1.Page.PaperSize := [A4];

과 같이 기술했으나 Error는 여전하네요

더 자세한 설명이 필요할거 같습니다.



거듭 감사드리며 다시한번 부탁드립니다.

이론상으론 PaperSize가 RunTime시도 변경가능해야 하는데 제가 코딩해본 결과도 Error가 나네요. 이 프로퍼티가 ReadOnly도 아닌데.. -.-;;



죄송합니다.. 다른 방법으로 처리하심은 어떨지 QuickReport폼을 2개를 만들어서(PaperSize를



원하는데로 DesingTime에서 지정해준) 조건에 따라불러 주시면 어떨까요..



넘 무식한 방법인가.. 도움이 되지 못해 죄송합니다.



김정식 wrote:

> 알려주신데로

> QuickRep1.Page.PaperSize := [A4];

> 과 같이 기술해도 Compile Error가 나서 다시

>

> type

> TQRPaperSize = (Default, Letter, LetterSmall, Tabloid, Ledger, Legal,

> Statement, Executive, A3, A4, A4Small, A5, B4, B5, Folio,

> Quarto, qr10X14, qr11X17, Note, Env9, Env10, Env11, Env12,

> Env14, CSheet, DSheet, ESheet, Custom);

> var

> PaperSize : TQRPaperSize;

> begin

> QuickRep1.Page.PaperSize := [A4];

> 과 같이 기술했으나 Error는 여전하네요

> 더 자세한 설명이 필요할거 같습니다.

>

> 거듭 감사드리며 다시한번 부탁드립니다.

>