Gsyfuy

Why is it "take a leak?"

Formatting a table to look nice

Specific Chinese carabiner QA?

A bug in Excel? Conditional formatting for marking duplicates also highlights unique value

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

Plagiarism of code by other PhD student

If nine coins are tossed, what is the probability that the number of heads is even?

Sometimes a banana is just a banana

Misplaced tyre lever - alternatives?

Where is the fallacy here?

Redirecting CellPrint output

It doesn't matter the side you see it

Is there a math equivalent to the conditional ternary operator?

When was drinking water recognized as crucial in marathon running?

Relationship between the symmetry number of a molecule as used in rotational spectroscopy and point group

Caulking a corner instead of taping with joint compound?

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

3.5% Interest Student Loan or use all of my savings on Tuition?

Are there other characters in the Star Wars universe who had damaged bodies and needed to wear an outfit like Darth Vader?

Should I use HTTPS on a domain that will only be used for redirection?

Book about a time-travel war fought by computers

Being asked to review a paper in conference one has submitted to

Is every open circuit a capacitor?

Correct physics behind the colors on CD (compact disc)?

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 1 hour ago

answered 3 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 1 hour ago

answered 3 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 1 hour ago

answered 3 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 1 hour ago

answered 3 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 1 hour ago

answered 3 hours ago

kglrkglr

187k10203421

answered 3 hours ago

kglrkglr

187k10203421

answered 3 hours ago

kglrkglr

187k10203421