Delphi - Imprimir fechas

Hola foro:

Tengo el siguiente problema quiero imprimir unas determinadas facturas desde tal fecha a tal fecha de la forma que lo hago solo me imprime la ultima factura.

Imprimir_.query1.Filter:='Fecha >= ''' + DateToStr(DateTimePicker1.Date) + ''' and Fecha <= ''' + DateToStr(DateTimePicker2.Date) + '''';
Imprimir_.query1.Filtered:=True;
Imprimir_.query1.Open;
Imprimir_.quickrep1.Preview;

Como lo modifico para que me imprima todas las fechas solicitadas.

gracias por vuestra ayuda.

//tantos apostrofes saturan mi caapacidad de asombro
//bueno, la practica hace al maestro...
Imprimir_.query1.Filter:='Fecha BETWEEN''' + DateToStr(DateTimePicker1.Date) + ''' and ''' + DateToStr(DateTimePicker2.Date) + '''';

Para no liarse con tantos apostrofes, esta la funcion QuotedStr();..

Para no liarse con tantos apostrofes, esta la funcion QuotedStr();..