PrintDbGrideh1.BeforeGridText.Clear;//添加
PrintDbGrideh1.BeforeGridText.Add( '订单 ');
PrintDBGridEh1.PageFooter.CenterText.Text:='第 &[Page] 页/共 &[Pages] 页';
PrinterPreview.Orientation:= poLandscape; //横向打印:需要引用 Printers 单元
PrintDBGridEh1.Options :=[pghFitGridToPageWidth]; //将所有列缩放为一页
PrintDBGridEh1.Preview; //打印预览