请高手帮帮我，我已经郁闷了4天了，问题还是解决不了呀？？555555。。。。。。

[butian]

meta := QRPreview.QRPrinter.GetPage(1);
返回总是空nil。
但是可以预览出来东西。
也都声明了
主要是QRPrinter为（），这是什么意思呀？

[butian]

你的代码过不去呀
再说，我在取meta之前就在QR的preview事件中
写了
QRPreview.QRPrinter := TQRPrinter(Sender);了，

我得代码：
QRVoucher_xfysh.Prepare;
QRVoucher_xfysh.Preview;
meta := QRVoucher_xfysh.QRPrinter.GetPage(1);

[butian]

to lxl(蚊蚊)
用你的方法，得到的meta还是空nil呀
我的QQ是5733173

[lxl]

改为：
QRVoucher_xfysh.Preview;
QRVoucher_xfysh.Prepare;
meta := QRVoucher_xfysh.QRPrinter.GetPage(1);

[butian]

我得是d4
是不是版本问题呀？

[butian]

唉～～
谁知道呀？

[lxl]

建议改为这样问：
在用QRPRIVWER来玉兰后，怎么又在程序中动态改回到QR的DEFAULT玉兰？

[butian]

唉～～～～
没有高手吗？

[liang_z]

QuickRep1.Prepare;
meta := QRPreview.QRPrinter.GetPage(1);

[butian]

我已经prepare了

[lxl]

procedure TForm1.Button1Click(Sender: TObject);
var meta: tmetafile;
begin
//要PREPARE！
quickrep1.prepare;
meta := quickrep1.QRPrinter.GetPage(1);
image1.Canvas.Draw(0,0,meta);
meta.SaveToFile('c:\c.emf');
end;

[fengpiaoyang]

可怜的孩子！！！

[butian]

QRVoucher_xfysh.Prepare;
QRVoucher_xfysh.Preview;
//QRPreview.PaintTo(T_bmp.Canvas.Handle,10,10);
//Image2.Picture.Bitmap := T_bmp;
meta := QRPreview.QRPrinter.GetPage(1);
可是meta总是空 nil
天～～～
我都试了无数种方法了。。。。。。555555555555。。。。。。

[lxl]

用QRPREVIEW？
它怎么知你是用它来PREVIEW的？呵呵
要在PREPARE后加入：view1.QRPrinter:=quickrep1.QRPrinter;

[butian]

to lxl(蚊蚊)　
我已经在QR1的on preview中写了呀
QRPreview.QRPrinter := TQRPrinter(Sender);

[butian]

谁还有办法呀？

[lxl]

你是PREVIEW处写了有什么用？
要在PREPARE后面写！！
全文：
procedure TForm1.Button1Click(Sender: TObject);
var meta: tmetafile;
begin
//要PREPARE！
quickrep1.prepare;
QRPreview.QRPrinter := TQRPrinter(Sender);
meta := quickpreview1.QRPrinter.GetPage(1);
image1.Canvas.Draw(0,0,meta);
meta.SaveToFile('c:\c.emf');
end;