Saludos, prueba con la propiedad width seria algo asi
Código Delphi
[-]
var a :Integer;
for a := 0 to DBGrid.columns.count - 1;
DBGrid.Columns[a].Width:=100;
por supuesto que podrias indicar a cada columna un ancho diferente pero ya tu sabras como usarlo.
Y si para imprimir creo que tienes que usar el Dataset que tienes vinculado a tu DBGrid, prueba con los componentes para reportes, y si tienes dudas o problemas por aqui estaremos para ayudarte.