代码设置横向打印、纸张大小、边距等

atiger

//横向打印
DataGrid.Exporter.PageInfo.Orientation := TPrinterOrientation.poLandscape;
//纵向打印
DataGrid.Exporter.PageInfo.Orientation := TPrinterOrientation.poPortrait;


//左边距
DataGrid.Exporter.PageInfo.MarginLeft := AMarginLeft;

atiger

使用下面两个方法可以自适应打印，不过页边框很大，楼主可以看一下效果。
DataGrid.PrintPortrait;   //竖着打，自动适应宽度
DataGrid.PrintLandscape;   //横着打，自动适应宽度

如果要预览打印，其实是所见即所得的打印，需要设置DataChart的长宽。
  DataGrid.Align:=TAlign.alCustom;
    DataGrid.Width:=700;
    DataGrid.Height:=1000;
    DataGrid.Preview;
    DataGrid.Align:=TAlign.alClient;