如何控制 PrinterSetupDialog 控制QuickReport 的打印設置(100分)

我用
if( PrinterSetupDialog ->Execute())
{
QuickRepor->Print();
}
打印報表,但打印設置沒有效果
多謝高手大哥幫忙

需要重新进行打印

提

关注

if( PrinterSetupDialog ->Execute())
{
在此处用一组变量(valueA,valueB,...,valueZ)计下你的printersetting 各选项的值

QuickRepor->Print();
}
在你的Quickrep报表单元中加入
QuickRepBeforePrint(Sender: TCustomQuickRep)事件;
procedure TListForm.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
quickrep.PrinterSettings.proprityA:=valueA;
quickrep.PrinterSettings.proprityB:=valueB;
.
.
.
quickrep.PrinterSettings.proprityZ:=valueZ;
end;

接受答案了.