PrintDbGrideh1.BeforeGridText.Clear;//添加

PrintDbGrideh1.BeforeGridText.Add( '订单 ');

PrintDBGridEh1.PageFooter.CenterText.Text:='第 &[Page] 页/共 &[Pages] 页';

PrinterPreview.Orientation:= poLandscape;           //横向打印：需要引用 Printers 单元

PrintDBGridEh1.Options :=[pghFitGridToPageWidth];  //将所有列缩放为一页

PrintDBGridEh1.Preview;                             //打印预览