Delphi - como imprimir lo de un bdgrid

Buenas noches chavos!

Necesito mandar imprimir lo que tengo en un bdgrid y borrar el contenido de una tabla, porque truena cuando realizo la consulta delete pedido, ya que me dice que no le regresa ningun valor.

Les voy agradecer mucho si me pueden ayudar, gracias.

Que onda mike 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;