cxgrid打印用dxComponentPrinter,怎样动态修改header？

Question

想让header动态显示combobox的内容。看到有个类似问题的答案是：加入一个dxPrintStyleManager1，将dxComponentPrinter1Link1的StyleManager指向dxPrintStyleManager1，然后可以写以下的代码： procedure   TForm3.Button1Click(Sender:   TObject); 
var 
pstyle:TdxPSPrintStyle; 
begin 
pstyle:=TdxPSPrintStyle(dxComponentPrinter1Link1.StyleManager.CurrentStyle)   ; 
pstyle.PrinterPage.PageHeader.CenterTitle.Clear; 
pstyle.PrinterPage.PageHeader.CenterTextAlignY 
pstyle.PrinterPage.PageHeader.CenterTitle.Add( 'I   am   a   Heaer '); dxComponentPrinter1.Preview(); 
end; 
但是这样运行时pstyle.PrinterPage.PageHeader.CenterTitle.Clear;这句会报错，不知道该怎么实现。

Answer 1

Self.dxComponentPrinter.Preview(True,Self.dxComponentPrinterLink1);    

Answer 2

procedure TDMPinter.PrintersAddReportLink(Sender: TObject;
  AReportLink: TBasedxReportLink);
begin
  AReportLink.StyleManager:=dxPrintStyleManager1;
end;

Answer 3

这个我设置过了，直接在link1的属性里改的

Answer 4

不是这句的问题，是header那句的问题