Why?:Because it make sense in some application like mine which create visual objects on the paper area so that they become incorporated in the final Metafile and then be used in a PDF document (i use PDFCreatorPilot http://www.colorpilot.com )

For the moment, and as a 'worth solution' i create an Component derived from yours as this:

function TPrintPreviewEx.GetPaperView: TPaperPreview;varctl:TControl;I:Integer;beginresult:=NIL; for i := 0 to self.ControlCount-1 do begin ctl:=self.Controls[i]; if ctl is TPaperPreview then begin result:=ctl as TPaperPreview ; break; end; end;