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