Mrthfx

Are small insurances worth it

Why doesn't "adolescent" take any articles in "listen to adolescent agonising"?

PTIJ: Should I stay away from my computer?

Practical reasons to have both a large police force and bounty hunting network?

When was drinking water recognized as crucial in marathon running?

How to get the first element while continue streaming?

PTIJ: Aharon, King of Egypt

Can I solder 12/2 Romex to extend wire 5 ft?

Can a space-faring robot still function over a billion years?

How can I highlight parts in a screenshot

When to use mean vs median

School performs periodic password audits. Is my password compromised?

If there are any 3nion, 5nion, 7nion, 9nion, 10nion, etc.

Caulking a corner instead of taping with joint compound?

Was it really inappropriate to write a pull request for the company I interviewed with?

Formatting a table to look nice

Why did the Cray-1 have 8 parity bits per word?

Did Amazon pay $0 in taxes last year?

How to disable or uninstall iTunes under High Sierra without disabling SIP

Where is this quote about overcoming the impossible said in "Interstellar"?

Inconsistent behaviour between dict.values() and dict.keys() equality in Python 3.x and Python 2.7

How can neutral atoms have exactly zero electric field when there is a difference in the positions of the charges?

How do you say “my friend is throwing a party, do you wanna come?” in german

Is divide-by-zero a security vulnerability?

Redirecting CellPrint output

Can I Print to a different notebook? (within the context of the same kernel)Temporarily redirect the output of Print[ ] to a second fileA notebook created on demand from a main document showing executable input along with output cellsConsecutive Print to target same output CellConditional printed outputWhy TeXForm[] do not display to notebook if followed by OutputForm[] in same cell?Temporary/popup Output Progress BoxesHow to find the last output cell of the group to which a certain cell belongs?Delete Cell Inside of ModulePrint SlideShowSaving all cell-groups to pdfs with filenamesDelete all output in notebooks

3

1

$begingroup$

How can I make g[]; or h[]; print the same output as f[];? I am trying to capture the output of one function and put it in a document elsewhere, but the CellPrint output is not cooperating.

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

notebooks cells monitoring

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

$endgroup$

add a comment | 

3

1

$begingroup$

How can I make g[]; or h[]; print the same output as f[];? I am trying to capture the output of one function and put it in a document elsewhere, but the CellPrint output is not cooperating.

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

notebooks cells monitoring

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

$endgroup$

add a comment | 

$begingroup$

How can I make g[]; or h[]; print the same output as f[];? I am trying to capture the output of one function and put it in a document elsewhere, but the CellPrint output is not cooperating.

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

notebooks cells monitoring

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

$endgroup$

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

edited 4 hours ago

Kuba♦

106k12206529

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

3 Answers
3

active

oldest

votes

1

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

add a comment | 

1

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

add a comment | 

1

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 2 hours ago

answered 4 hours ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
});
});
}, "mathjax-editing");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "387"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f192754%2fredirecting-cellprint-output%23new-answer', 'question_page');
}
);

Post as a guest

Name

Email

Required, but never shown

1

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

add a comment | 

1

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

add a comment | 

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

answered 4 hours ago

Kuba♦Kuba

106k12206529

answered 4 hours ago

Kuba♦Kuba

106k12206529

1

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

add a comment | 

1

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

add a comment | 

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

g[];

nb = h[];

CurrentNotebookImage[nb]

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

1

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 2 hours ago

answered 4 hours ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

1

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 2 hours ago

answered 4 hours ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 2 hours ago

answered 4 hours ago

kglrkglr

187k10203421

$endgroup$

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 2 hours ago

answered 4 hours ago

kglrkglr

187k10203421

answered 4 hours ago

kglrkglr

187k10203421

answered 4 hours ago

kglrkglr

187k10203421