关于用printdbgrideh打印dbgrideh中数据的问题

Question

PrintDBGridEh1.DBGridEh:=DBGridEh1;
PrintDBGridEh1.Preview;
执行后进入预览界面，若dbgrideh1中字段过多，则默认分页打印，此时再预览界面点击 printer setup 后勾选 fits width
on one page -》scale whole grid,则可以在一页上打印出数据。请问如何让其自动用一页的方式打印数据，或者要怎么设置打印字段的列宽？谢谢

Answer 1

PrintDBGridEh1.DBGridEh:=DBGridEh1;
PrintDBGridEh1.Options :=[pghFitGridToPageWidth];//加上这句试试。
PrintDBGridEh1.Preview;