为什么打印预览窗口里的位置设定无效？(20分)

我在FormCreate ，FormShow里都加了，可是依然无效……
预览窗口使用form10.quickrep1.preview;命令打开
位置设定程序如下
procedure TForm10.FormCreate(Sender: TObject);
var
Printini:TIniFile;
begin
Printini:=Tinifile.Create('Print.ini');
QRDBText1.Left:=Printini.ReadInteger('Model','Left',220);
QRDBText2.Left:=Printini.ReadInteger('Vin','Left',220);
QRDBText3.Left:=Printini.ReadInteger('Engine','Left',220);
QRDBText1.Top:=Printini.ReadInteger('Model','Top',0);
QRDBText2.Top:=Printini.ReadInteger('Vin','Top',65);
QRDBText3.Top:=Printini.ReadInteger('Engine','Top',130);
QRDBText4.Left:=Printini.ReadInteger('Issue','Left',415);
QRDBText4.Top:=Printini.ReadInteger('Issue','Top',360);
Printini.Free;
end;

procedure TForm10.FormShow(Sender: TObject);
var
Printini:TIniFile;
begin
Printini:=Tinifile.Create('Print.ini');
QRDBText1.Left:=Printini.ReadInteger('Model','Left',220);
QRDBText2.Left:=Printini.ReadInteger('Vin','Left',220);
QRDBText3.Left:=Printini.ReadInteger('Engine','Left',220);
QRDBText1.Top:=Printini.ReadInteger('Model','Top',0);
QRDBText2.Top:=Printini.ReadInteger('Vin','Top',65);
QRDBText3.Top:=Printini.ReadInteger('Engine','Top',130);
QRDBText4.Left:=Printini.ReadInteger('Issue','Left',415);
QRDBText4.Top:=Printini.ReadInteger('Issue','Top',360);
Printini.Free;
end;

怎么没用呢？

up

加在qr的beforPreview事件里

有这个事件吗？没有吧……至少我没有看见
只有afterPreview

应该是beforeprint，这样就没错了

接受答案了.