너무 급합니다...

좀 도와주세요..

자료실을 돌아다녀도..못찾앗어요...Qrimage 를 이용해서..

procedure TFrmqrp.BitBtn2Click(Sender: TObject);

begin



QuickRep1.Print;

end//이렇게 했는데..출력이 안됩니다..

출력 버튼을 두었구요....

미리보기 버튼은 이상없이 되구요.,.



그래서 이 방법을 다시 썼어요.

procedure PrintBitmap(Bitmap: TBitmap; X, Y: Integer);

var

Info: PBitmapInfo;

InfoSize: Integer;

Image: Pointer;

ImageSize: Longint;

begin

Printer.BeginDoc;

with Bitmap do

begin

GetDIBSizes(Handle, InfoSize, ImageSize);

GetMem(Info,InfoSize);

try

GetMem(Image,ImageSize);

try

GetDIB(Handle, Palette, Info^, Image^);

with Info^.bmiHeader do

StretchDIBits(Printer.Canvas.Handle, X, Y, Width,

Height, 0, 0, biWidth, biHeight, Image, Info^,

DIB_RGB_COLORS, SRCCOPY);

finally

FreeMem(Image, ImageSize);

end;

finally

FreeMem(Info, InfoSize);

end;

end;

Printer.EndDoc;

end;



procedure TFrmqrp.Bitbtn1tClick(Sender: TObject);

begin

PrintBitmap(Image1.Picture.Bitmap, 100,50);

end;



그래두 역시 안됩니다..

어떻게해야..이미지가 프린트 될수 있죠??

갈쳐주세요...

부탁합니다.............감사합니다.....~~~~~~