在新建Form中放QRPreview构件(在QuickReport构栏后面可以找到),
在原来的QuickRep的OnPreview中加:
Form.QRPreview.QRPinter := QuickRep.QRPrinter;
QRPreview.zoom := xx(xx预览比例)
QRPreview.pagenumber := xx(预览第几页)
QRPreview.QRPinter.Print;(打印)
QRPreview.QRPinter.PrintSetup(打印设置)
页边距设置:
QuickRep.Page.TopMargin
QuickRep.Page.BottonMargin
QuickRep.Page.LeftMargin
QuickRep.Page.RightMargin
纸张设置:
QuickRep.Page.PageSize