Report Build问题(50分)

程序中有两个按钮A,B,一个RB报表report1:tppreport;
A按钮的onclick事件定义为:
procedure Tform1.AClick(Sender: TObject);
begin
//显示预览窗口
with report1do
begin
devicetype:='screen';
showprintdialog:=true;
modalpreview:=true;
print;
end;
end;
B按钮的ONclick事件定义为
procedure Tform1.BClick(Sender: TObject);
begin
//用来直接打印，不显示预览窗口
with report1do
begin
DeviceType:='printer';
showprintdialog:=false;
modalpreview:=false;
print;
end;
end;
当我先按下按钮A,再按按钮B时正常（先预览，然后打印）
而先按按钮B，再按按钮A时，则打印正常而不能显示预览窗口
为什么？如何解决？

Put your debug stop point on your AClick procedure
devicetype:='screen';
seedo
es delphi truely change it to 'screen' or still is 'printer'? Ido
believe just some ppReport's properties problem. Check RB help to slove your problem.