Exporting Summary Boxes












6












$begingroup$


I would like to Export a Summary Box in its expanded Form. How do i do this?
I can Export a collapsed Summary Box by doing:



result = ConvolutionLayer[4,8] (*which is a summary Box*)
Export["testFile.pdf", result]









share|improve this question









$endgroup$












  • $begingroup$
    Interactively you can expand the summary box and then right-click on the cell bracket and select "Save selection as", but it would be nice to be able to do that programmatically
    $endgroup$
    – Jason B.
    6 hours ago


















6












$begingroup$


I would like to Export a Summary Box in its expanded Form. How do i do this?
I can Export a collapsed Summary Box by doing:



result = ConvolutionLayer[4,8] (*which is a summary Box*)
Export["testFile.pdf", result]









share|improve this question









$endgroup$












  • $begingroup$
    Interactively you can expand the summary box and then right-click on the cell bracket and select "Save selection as", but it would be nice to be able to do that programmatically
    $endgroup$
    – Jason B.
    6 hours ago
















6












6








6





$begingroup$


I would like to Export a Summary Box in its expanded Form. How do i do this?
I can Export a collapsed Summary Box by doing:



result = ConvolutionLayer[4,8] (*which is a summary Box*)
Export["testFile.pdf", result]









share|improve this question









$endgroup$




I would like to Export a Summary Box in its expanded Form. How do i do this?
I can Export a collapsed Summary Box by doing:



result = ConvolutionLayer[4,8] (*which is a summary Box*)
Export["testFile.pdf", result]






output-formatting formatting pdf-format output






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked 7 hours ago









GladaedGladaed

35610




35610












  • $begingroup$
    Interactively you can expand the summary box and then right-click on the cell bracket and select "Save selection as", but it would be nice to be able to do that programmatically
    $endgroup$
    – Jason B.
    6 hours ago




















  • $begingroup$
    Interactively you can expand the summary box and then right-click on the cell bracket and select "Save selection as", but it would be nice to be able to do that programmatically
    $endgroup$
    – Jason B.
    6 hours ago


















$begingroup$
Interactively you can expand the summary box and then right-click on the cell bracket and select "Save selection as", but it would be nice to be able to do that programmatically
$endgroup$
– Jason B.
6 hours ago






$begingroup$
Interactively you can expand the summary box and then right-click on the cell bracket and select "Save selection as", but it would be nice to be able to do that programmatically
$endgroup$
– Jason B.
6 hours ago












1 Answer
1






active

oldest

votes


















6












$begingroup$

I could bet I already answered that in the past but can't find it:



result = ConvolutionLayer[4,8];

Module[{temp}

, SetAttributes[temp, HoldAll]

; ToBoxes @ result
/. HoldPattern[{Typeset`open = False}] :> temp[{Typeset`open = True}]
/. temp[x_] :> x

] // RawBoxes // Export["test.pdf", #] &


enter image description here






share|improve this answer









$endgroup$













  • $begingroup$
    Unevaluated also works for this, ReplaceAll[ HoldPattern[Typeset`open = False] :> Unevaluated[Typeset`open = True]]
    $endgroup$
    – Jason B.
    6 hours ago












  • $begingroup$
    @JasonB. Good for you :p I find it hard to use Unevaluated for more than simple things so I don't use it ;)
    $endgroup$
    – Kuba
    6 hours ago










  • $begingroup$
    This is in a Hold... structure so you don't even need to Hold. You can just do something like HoldPattern[Typeset`open = _] :> (Typeset`open = True)
    $endgroup$
    – b3m2a1
    3 hours ago










  • $begingroup$
    @b3m2a1 you are right, guess I shouldn't have skipped my 3rd coffee. Will correct it tomorrow.
    $endgroup$
    – Kuba
    3 hours ago











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


















StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f190937%2fexporting-summary-boxes%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown

























1 Answer
1






active

oldest

votes








1 Answer
1






active

oldest

votes









active

oldest

votes






active

oldest

votes









6












$begingroup$

I could bet I already answered that in the past but can't find it:



result = ConvolutionLayer[4,8];

Module[{temp}

, SetAttributes[temp, HoldAll]

; ToBoxes @ result
/. HoldPattern[{Typeset`open = False}] :> temp[{Typeset`open = True}]
/. temp[x_] :> x

] // RawBoxes // Export["test.pdf", #] &


enter image description here






share|improve this answer









$endgroup$













  • $begingroup$
    Unevaluated also works for this, ReplaceAll[ HoldPattern[Typeset`open = False] :> Unevaluated[Typeset`open = True]]
    $endgroup$
    – Jason B.
    6 hours ago












  • $begingroup$
    @JasonB. Good for you :p I find it hard to use Unevaluated for more than simple things so I don't use it ;)
    $endgroup$
    – Kuba
    6 hours ago










  • $begingroup$
    This is in a Hold... structure so you don't even need to Hold. You can just do something like HoldPattern[Typeset`open = _] :> (Typeset`open = True)
    $endgroup$
    – b3m2a1
    3 hours ago










  • $begingroup$
    @b3m2a1 you are right, guess I shouldn't have skipped my 3rd coffee. Will correct it tomorrow.
    $endgroup$
    – Kuba
    3 hours ago
















6












$begingroup$

I could bet I already answered that in the past but can't find it:



result = ConvolutionLayer[4,8];

Module[{temp}

, SetAttributes[temp, HoldAll]

; ToBoxes @ result
/. HoldPattern[{Typeset`open = False}] :> temp[{Typeset`open = True}]
/. temp[x_] :> x

] // RawBoxes // Export["test.pdf", #] &


enter image description here






share|improve this answer









$endgroup$













  • $begingroup$
    Unevaluated also works for this, ReplaceAll[ HoldPattern[Typeset`open = False] :> Unevaluated[Typeset`open = True]]
    $endgroup$
    – Jason B.
    6 hours ago












  • $begingroup$
    @JasonB. Good for you :p I find it hard to use Unevaluated for more than simple things so I don't use it ;)
    $endgroup$
    – Kuba
    6 hours ago










  • $begingroup$
    This is in a Hold... structure so you don't even need to Hold. You can just do something like HoldPattern[Typeset`open = _] :> (Typeset`open = True)
    $endgroup$
    – b3m2a1
    3 hours ago










  • $begingroup$
    @b3m2a1 you are right, guess I shouldn't have skipped my 3rd coffee. Will correct it tomorrow.
    $endgroup$
    – Kuba
    3 hours ago














6












6








6





$begingroup$

I could bet I already answered that in the past but can't find it:



result = ConvolutionLayer[4,8];

Module[{temp}

, SetAttributes[temp, HoldAll]

; ToBoxes @ result
/. HoldPattern[{Typeset`open = False}] :> temp[{Typeset`open = True}]
/. temp[x_] :> x

] // RawBoxes // Export["test.pdf", #] &


enter image description here






share|improve this answer









$endgroup$



I could bet I already answered that in the past but can't find it:



result = ConvolutionLayer[4,8];

Module[{temp}

, SetAttributes[temp, HoldAll]

; ToBoxes @ result
/. HoldPattern[{Typeset`open = False}] :> temp[{Typeset`open = True}]
/. temp[x_] :> x

] // RawBoxes // Export["test.pdf", #] &


enter image description here







share|improve this answer












share|improve this answer



share|improve this answer










answered 6 hours ago









KubaKuba

105k12204526




105k12204526












  • $begingroup$
    Unevaluated also works for this, ReplaceAll[ HoldPattern[Typeset`open = False] :> Unevaluated[Typeset`open = True]]
    $endgroup$
    – Jason B.
    6 hours ago












  • $begingroup$
    @JasonB. Good for you :p I find it hard to use Unevaluated for more than simple things so I don't use it ;)
    $endgroup$
    – Kuba
    6 hours ago










  • $begingroup$
    This is in a Hold... structure so you don't even need to Hold. You can just do something like HoldPattern[Typeset`open = _] :> (Typeset`open = True)
    $endgroup$
    – b3m2a1
    3 hours ago










  • $begingroup$
    @b3m2a1 you are right, guess I shouldn't have skipped my 3rd coffee. Will correct it tomorrow.
    $endgroup$
    – Kuba
    3 hours ago


















  • $begingroup$
    Unevaluated also works for this, ReplaceAll[ HoldPattern[Typeset`open = False] :> Unevaluated[Typeset`open = True]]
    $endgroup$
    – Jason B.
    6 hours ago












  • $begingroup$
    @JasonB. Good for you :p I find it hard to use Unevaluated for more than simple things so I don't use it ;)
    $endgroup$
    – Kuba
    6 hours ago










  • $begingroup$
    This is in a Hold... structure so you don't even need to Hold. You can just do something like HoldPattern[Typeset`open = _] :> (Typeset`open = True)
    $endgroup$
    – b3m2a1
    3 hours ago










  • $begingroup$
    @b3m2a1 you are right, guess I shouldn't have skipped my 3rd coffee. Will correct it tomorrow.
    $endgroup$
    – Kuba
    3 hours ago
















$begingroup$
Unevaluated also works for this, ReplaceAll[ HoldPattern[Typeset`open = False] :> Unevaluated[Typeset`open = True]]
$endgroup$
– Jason B.
6 hours ago






$begingroup$
Unevaluated also works for this, ReplaceAll[ HoldPattern[Typeset`open = False] :> Unevaluated[Typeset`open = True]]
$endgroup$
– Jason B.
6 hours ago














$begingroup$
@JasonB. Good for you :p I find it hard to use Unevaluated for more than simple things so I don't use it ;)
$endgroup$
– Kuba
6 hours ago




$begingroup$
@JasonB. Good for you :p I find it hard to use Unevaluated for more than simple things so I don't use it ;)
$endgroup$
– Kuba
6 hours ago












$begingroup$
This is in a Hold... structure so you don't even need to Hold. You can just do something like HoldPattern[Typeset`open = _] :> (Typeset`open = True)
$endgroup$
– b3m2a1
3 hours ago




$begingroup$
This is in a Hold... structure so you don't even need to Hold. You can just do something like HoldPattern[Typeset`open = _] :> (Typeset`open = True)
$endgroup$
– b3m2a1
3 hours ago












$begingroup$
@b3m2a1 you are right, guess I shouldn't have skipped my 3rd coffee. Will correct it tomorrow.
$endgroup$
– Kuba
3 hours ago




$begingroup$
@b3m2a1 you are right, guess I shouldn't have skipped my 3rd coffee. Will correct it tomorrow.
$endgroup$
– Kuba
3 hours ago


















draft saved

draft discarded




















































Thanks for contributing an answer to Mathematica Stack Exchange!


  • Please be sure to answer the question. Provide details and share your research!

But avoid



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


Use MathJax to format equations. MathJax reference.


To learn more, see our tips on writing great answers.




draft saved


draft discarded














StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f190937%2fexporting-summary-boxes%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







Popular posts from this blog

Polycentropodidae

Magento 2 Error message: Invalid state change requested

Paulmy