ايران ويج

سوال:چگونه یک فرم را به همان شکلی که هست در پرینتر چاپ کنیم

سلام دوست عزیز
من این جواب رو با امید این که شما با کامپوننت Quick Report آشنایی داشته باشین براتون ارسال میکنم.
اول یه فرم با تمامی Object هایی که دوست دارین روش قرارا بدین طراحی میکنین. بعد یک فرم دوم به پروژه تون لضافه میکننین و یک Object از نوع QuickRep به اون اضافه میکننین بعد روی این QuickRep یک Object ازنوع QRSubDetail گذاشته و پهنا و ارتفاع اونو ست میکنین . و روی اونم یه دونه QRImage قرار میدین . حالا میایین یه دونه مثلا دکمه روی فرم یکتون قرار میدین و کد زیر رو بهش اضافه میکنین و کلی باهاش صفا میکنید.

کد: 
procedure TForm1.Button1Click(Sender: TObject);

var bmp:TBitmap;

begin

bmp:=TBitmap.Create;

bmp.Width:=form1.Width;

bmp.Height:=form1.Height;

bmp.Canvas.CopyRect(rect(0,0,width,Height),

 form1.Canvas,

 rect(0,0,width-8,Height-35));

form2.QRImage1.Width:=bmp.Width;

form2.QRImage1.Height:=bmp.Height;

form2.QRImage1.Picture:=TPicture(bmp);

form2.QuickRep1.Preview;

bmp.Free; 

end;

امیدوارم مشکلتون حل شده باشه.

mohpersia

mirn96