[[egostar]]

Hola rruffino

Si entiendo lo que quieres hacer yo hago esto:

Código Delphi [-]
Procedure TLector.ImprimeRecibo;
begin
  Case StatusRoom[1] Of
     '2' : FQRecibo.TipoExt.Caption := 'VOZ  ';
     '3' : FQRecibo.TipoExt.Caption := 'DATOS';
  end;
  Report := FQRecibo.QRecibo;
  Report.Print;
end;

Salud OS