Is possible to set the PageWidth of an output cell without having to manually use the Format->Word Wrapping menu? For example, how could one add to the following Input expression to cause the output to have PageWidth->Infinity?
StringJoin[RandomChoice[Characters["abcdefghijklmnopqrstuvwz"], 200]]
CellPrint seems too low-level since it ignores the settings of other options, such as cell margins. SetOptions works fine if I want the wrapping to be the same for all Output cells (which I don't). I tried working with CurrentValue, but did not have any success.
I also tried
SetOptions[$Output, PageWidth -> Infinity]
StringJoin[RandomChoice[Characters["abcdefghijklmnopqrstuvwz"], 200]]
but it had no effect.
Thanks in advance for any tips/pointers,
Andrew.