Si no quieres ver la presentación preliminar usa Quickreport1.Print
Para imprimir un solo registro, debes limitar la consulta en que se basa el QuickReport. Dicha consulta puede ser:
Código SQL
[-]
select *
from cliente
where idcliente = :AImprimir
Antes de abrir la consulta le dices el cliente que quieres imprimir:
Código Delphi
[-]
query1.parambyname('AImprimir').AsInteger := 3;
query1.Open;
QuickReport1.Print;
Saludos