Excel中打印质量的控制(200分)

//设置Excel的页面设置信息，如页眉，页脚等
procedure SetExcelPageSetupInfo(ASheet: Variant; Src: TExcelPageInfo);

begin

if VarIsNull(ASheet) then
Exit;

ASheet.PageSetup.CenterHorizontally := Src.CenterHorizontally;
ASheet.PageSetup.CenterVertically := Src.CenterVertically;
ASheet.PageSetup.LeftHeader := Src.LeftHeader;
ASheet.PageSetup.CenterHeader := Src.CenterHeader;
ASheet.PageSetup.RightHeader := Src.RightHeader;
ASheet.PageSetup.LeftFooter := Src.LeftFooter;
ASheet.PageSetup.CenterFooter := Src.CenterFooter;
ASheet.PageSetup.RightFooter := Src.RightFooter;
ASheet.PageSetup.LeftMargin := Src.LeftMargin;
ASheet.PageSetup.RightMargin := Src.RightMargin;
ASheet.PageSetup.TopMargin := Src.TopMargin;
ASheet.PageSetup.BottomMargin := Src.BottomMargin;
ASheet.PageSetup.HeaderMargin := Src.HeaderMargin;
ASheet.PageSetup.FooterMargin := Src.FooterMargin;
ASheet.PageSetup.PrintHeadings := Src.PrintHeadings;
ASheet.PageSetup.PrintGridlines := Src.PrintGridlines;
ASheet.PageSetup.PrintComments := Src.PrintComments;
// ASheet.PageSetup.PrintQuality := Src.PrintQuality[1];//这里出错
ASheet.PageSetup.Orientation := Src.Orientation;
ASheet.PageSetup.Draft := Src.Draft;
ASheet.PageSetup.PaperSize := Src.PaperSize;
ASheet.PageSetup.FirstPageNumber := Src.FirstPageNumber;
ASheet.PageSetup.Order := Src.Order;
ASheet.PageSetup.BlackAndWhite := Src.BlackAndWhite;
ASheet.PageSetup.Zoom := Src.Zoom;
ASheet.PageSetup.PrintErrors := Src.PrintErrors;
end;
程序信息：=====================
1、函数中的TExcelPageInfo为自己定义的一个结构，用来存储从Excel中读出的页面设置信息。
2、该函数可正确执行，但是函数内被注释的那一行不能执行，请帮忙解决。