Ttyjukl

How can I highlight parts in a screenshot

“I had a flat in the centre of town, but I didn’t like living there, so …”

Giving a talk in my old university, how prominently should I tell students my salary?

Why do phishing e-mails use faked e-mail addresses instead of the real one?

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

Are small insurances worth it

How to merge row in the first column in LaTeX

Has Wakanda ever accepted refugees?

Deal the cards to the players

Meaning of word ягоза

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

Book about a time-travel war fought by computers

Where is the fallacy here?

Formatting a table to look nice

Did Amazon pay $0 in taxes last year?

Can we carry rice to Japan?

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

Would the melodic leap of the opening phrase of Mozart's K545 be considered dissonant?

What is a term for a function that when called repeatedly, has the same effect as calling once?

Why are special aircraft used for the carriers in the United States Navy?

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

When to use mean vs median

What is the meaning of "notice to quit at once" and "Lotty points”

I can't die. Who am I?

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