Delphi - como Imprimo los datos de un DbGrid?

Como imprimo los datos que muestro a traves de un DBGrid en Delphi con un control "PrintDialog", al momento de poner un boton que ejecute el metodo "Execute" del Printdialog, aparece la caja de dialogo de impresion pero aldarle aceptar no imprime nada... ¿que me hace falta?

Que onda daniel espero que este codigo te sea util en tu problema este
codigo no utiliza printdialog solamente deberas agragar un reporte
a tu proyecto al reporte no le hagas nada dejalo en limpio

Agrega esto al Uses de la unidad de la cual va a enviar la impresion

QRExtra,QuickRpt

Este otro codigo va en un boton de comando
var
q:tCustomQuickRep;
l: tStringList;
i: integer;
begin
l:= tStringList.Create;
q:= nil;
for i:= 1 to DBGrid1.Columns.count do
l.Add(DBGrid1.Columns[i-1].FieldName);
QRCreateList(q,Self,DBGrid1.DataSource.Dataset,'Listado de Alumnos de '+form4.combobox3.Text, l);
q.Preview;
l.Free;
q.Free;