[marcoszorrilla]

Se me olvidó que tenía un código, facilitado por el Moderador Delphi.com.ar,

procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.PrinterSetup;
  if QuickRep1.Tag = 0 Then
  QuickRep1.Preview
  else
  ShowMessage('No imprimimos');
end;

Solamente guardé el código no recuerdo en que enlace lo puso, pero como verás es una solución, mucho más inteligente.

Un Saludo.