请问如何实现 delphi6 自带的 quickreport 将打印的每一页转成 BITMAP 图型格式 ？？？？？？

Question

请问如何实现 delphi6 自带的 quickreport 将打印的每一页转成 BITMAP 图型格式 ？？？？？？
例如：quickreport 已经连接好ADOdataSet数据库控件 ，如何将每一页的打印内容转成 BITMAP 图型格式  ，并显示在 image 控件中

Answer 1

注要是要 通过代码 转成 BITMAP 图型格式   ！！！ 不是通过预览 转成 BITMAP 图型格式   !!

Answer 2

Bitmap.Assign(...);
你直接拷贝成一张图片，然后保存一下

Answer 3

char *lpszPictureBuffer = new char[1024*10];GetPicture(1,1024*10,(LPVOID )lpszPictureBuffer);
TJPEGImage *jpg = new TJPEGImage;
TMemoryStream * Memory = new TMemoryStream;Memory -> Write((void*)lpszPictureBuffer,1024*10);
jpg -> LoadFormStream(Memory);Graphics :: TBitmap * bitmap = new TGraphics::TBitmap;bitmap -> Assign(jpg);
Image1 -> Picture -> Assign(bitmap);
Image1 -> Refresh();
delete bitmap;
delete jpg;
delete Memory;
你把你要打印的页面保存到图片，然后用流处理等等方法，我可能还没有理解你的意思

Answer 4

意思就是 不将 quickreport   每页的打印内容输出到打印机 而是 打印内容转成 BITMAP 图型格式  ，并显示在 image 控件中

Answer 5

拷贝屏幕图象，然后和image组件关联

Answer 6

rouqing(*冰雨&双子座奇缘*)  你的做法不行的！！！！！！

Answer 7

参考截屏软件的方法，将某个区域内的屏幕内容保存为图片文件，然后关联到image中

Answer 8

fastreport可以直接存为图片或pdf格式.
或者用看quickreport有没有直接导出图片的功能，如果没有则看看quickreprt导出到excel格式，再后再想法从excel流转成图

Answer 9

我主要 是如何实现  quickreport 进行缩小 或 放大 打印 !!!!

Answer 10

在 quickreport 进行缩小 或 放大 来打印好像不行啊,你在程序内固定处理几种不同的大小图片,后再quickreport中显示打印相应的图片吧.