Pon la propiedad Autosize a falso dale el ancho deseado, pon Stretch a verdadero y wordwrap también:
Código Delphi
[-]
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
Qrmemo1.lines.text:=memo1.lines.text;
end;
Un Saludo.