Possible to print w/o background color to save ink?

up vote
4
down vote

favorite

I sometimes need to print hard copies of my notebooks, but I really like having a background color to make the notebooks easier on my eyes. Is it possible to automatically remove the background color before sending to a printer? I couldn't find it on the options inspector. Thanks!

asked 3 hours ago

thejacksonjive

233

New contributor

add a commentÂ |Â

up vote
4
down vote

favorite

asked 3 hours ago

thejacksonjive

233

New contributor

add a commentÂ |Â

up vote
4
down vote

favorite

asked 3 hours ago

thejacksonjive

233

New contributor

stylesheet printing

asked 3 hours ago

thejacksonjive

233

New contributor

asked 3 hours ago

thejacksonjive

233

New contributor

asked 3 hours ago

thejacksonjive

233

New contributor

asked 3 hours ago

thejacksonjive

233

asked 3 hours ago

thejacksonjive

233

New contributor

thejacksonjive is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

add a commentÂ |Â

1 Answer
1

active

oldest

votes

up vote
4
down vote

accepted

Printing uses the "Printout" screen environment. So, you can control this behavior automatically with a stylesheet. Something like:

SetOptions[
 EvaluationNotebook,
 StyleDefinitions -> Notebook[
 
 Cell[StyleData[StyleDefinitions->"Default.nb"]],
 Cell @ CellGroupData[
 
 Cell[StyleData["Notebook"],Background->RGBColor[0.9, 1, 1]],
 Cell[StyleData["Notebook","Printout"],Background->None]
 ,
 Open
 ]
 ,
 StyleDefinitions->"PrivateStylesheetFormatting.nb"
 ]
]

ought to do it. Change the background as appropriate.

Check by toggling the ScreenEnvironment setting in the Format menu.

Addendum

If you want to make this change "permanent":

NotebookSave[
 Notebook[
 
 Cell[StyleData[StyleDefinitions->"Default.nb"]],
 Cell @ CellGroupData[
 
 Cell[StyleData["Notebook"],Background->RGBColor[0.9, 1, 1]],
 Cell[StyleData["Notebook","Printout"],Background->None]
 ,
 Open
 ]
 ,
 StyleDefinitions->"PrivateStylesheetFormatting.nb"
 ],
 FileNameJoin[
 $UserBaseDirectory,"SystemFiles","FrontEnd","StyleSheets","Default.nb"
 ]
]

and then the next time you open Mathematica you should see a blue screen. Just delete the file to return to the default behavior.

edited 1 hour ago

answered 3 hours ago

Carl Woll

60.3k279155

Beautiful. Thank you. Does this SetOptions method have a simple global implementation?
â€“Â thejacksonjive
2 hours ago

@thejacksonjive You could save the stylesheet in FileNameJoin[$UserBaseDirectory, "SystemFiles", "FrontEnd", "StyleSheets"]. If it has the name "Default.nb", it should be the default style sheet used from then on. If it doesn't have the name "Default.nb", than you would need to change the DefaultStyleDefinitions option (use the option inspector or CurrentValue[$FrontEnd, DefaultStyleDefinitions] = name) to point to it.
â€“Â Carl Woll
2 hours ago

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',
convertImagesToLinks: false,
noModals: false,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);

);

thejacksonjive is a new contributor. Be nice, and check out our Code of Conduct.

draft saved

draft discarded

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f183479%2fpossible-to-print-w-o-background-color-to-save-ink%23new-answer', 'question_page');

);

Post as a guest

Name

1 Answer
1

active

oldest

votes

1 Answer
1

active

oldest

votes

up vote
4
down vote

accepted

Printing uses the "Printout" screen environment. So, you can control this behavior automatically with a stylesheet. Something like:

SetOptions[
 EvaluationNotebook,
 StyleDefinitions -> Notebook[
 
 Cell[StyleData[StyleDefinitions->"Default.nb"]],
 Cell @ CellGroupData[
 
 Cell[StyleData["Notebook"],Background->RGBColor[0.9, 1, 1]],
 Cell[StyleData["Notebook","Printout"],Background->None]
 ,
 Open
 ]
 ,
 StyleDefinitions->"PrivateStylesheetFormatting.nb"
 ]
]

ought to do it. Change the background as appropriate.

Check by toggling the ScreenEnvironment setting in the Format menu.

Addendum

If you want to make this change "permanent":

NotebookSave[
 Notebook[
 
 Cell[StyleData[StyleDefinitions->"Default.nb"]],
 Cell @ CellGroupData[
 
 Cell[StyleData["Notebook"],Background->RGBColor[0.9, 1, 1]],
 Cell[StyleData["Notebook","Printout"],Background->None]
 ,
 Open
 ]
 ,
 StyleDefinitions->"PrivateStylesheetFormatting.nb"
 ],
 FileNameJoin[
 $UserBaseDirectory,"SystemFiles","FrontEnd","StyleSheets","Default.nb"
 ]
]

and then the next time you open Mathematica you should see a blue screen. Just delete the file to return to the default behavior.

edited 1 hour ago

answered 3 hours ago

Carl Woll

60.3k279155

Beautiful. Thank you. Does this SetOptions method have a simple global implementation?
â€“Â thejacksonjive
2 hours ago

@thejacksonjive You could save the stylesheet in FileNameJoin[$UserBaseDirectory, "SystemFiles", "FrontEnd", "StyleSheets"]. If it has the name "Default.nb", it should be the default style sheet used from then on. If it doesn't have the name "Default.nb", than you would need to change the DefaultStyleDefinitions option (use the option inspector or CurrentValue[$FrontEnd, DefaultStyleDefinitions] = name) to point to it.
â€“Â Carl Woll
2 hours ago

add a commentÂ |Â

up vote
4
down vote

accepted

Printing uses the "Printout" screen environment. So, you can control this behavior automatically with a stylesheet. Something like:

SetOptions[
 EvaluationNotebook,
 StyleDefinitions -> Notebook[
 
 Cell[StyleData[StyleDefinitions->"Default.nb"]],
 Cell @ CellGroupData[
 
 Cell[StyleData["Notebook"],Background->RGBColor[0.9, 1, 1]],
 Cell[StyleData["Notebook","Printout"],Background->None]
 ,
 Open
 ]
 ,
 StyleDefinitions->"PrivateStylesheetFormatting.nb"
 ]
]

ought to do it. Change the background as appropriate.

Check by toggling the ScreenEnvironment setting in the Format menu.

Addendum

If you want to make this change "permanent":

NotebookSave[
 Notebook[
 
 Cell[StyleData[StyleDefinitions->"Default.nb"]],
 Cell @ CellGroupData[
 
 Cell[StyleData["Notebook"],Background->RGBColor[0.9, 1, 1]],
 Cell[StyleData["Notebook","Printout"],Background->None]
 ,
 Open
 ]
 ,
 StyleDefinitions->"PrivateStylesheetFormatting.nb"
 ],
 FileNameJoin[
 $UserBaseDirectory,"SystemFiles","FrontEnd","StyleSheets","Default.nb"
 ]
]

and then the next time you open Mathematica you should see a blue screen. Just delete the file to return to the default behavior.

edited 1 hour ago

answered 3 hours ago

Carl Woll

60.3k279155

Beautiful. Thank you. Does this SetOptions method have a simple global implementation?
â€“Â thejacksonjive
2 hours ago

@thejacksonjive You could save the stylesheet in FileNameJoin[$UserBaseDirectory, "SystemFiles", "FrontEnd", "StyleSheets"]. If it has the name "Default.nb", it should be the default style sheet used from then on. If it doesn't have the name "Default.nb", than you would need to change the DefaultStyleDefinitions option (use the option inspector or CurrentValue[$FrontEnd, DefaultStyleDefinitions] = name) to point to it.
â€“Â Carl Woll
2 hours ago

add a commentÂ |Â

up vote
4
down vote

accepted

Printing uses the "Printout" screen environment. So, you can control this behavior automatically with a stylesheet. Something like:

SetOptions[
 EvaluationNotebook,
 StyleDefinitions -> Notebook[
 
 Cell[StyleData[StyleDefinitions->"Default.nb"]],
 Cell @ CellGroupData[
 
 Cell[StyleData["Notebook"],Background->RGBColor[0.9, 1, 1]],
 Cell[StyleData["Notebook","Printout"],Background->None]
 ,
 Open
 ]
 ,
 StyleDefinitions->"PrivateStylesheetFormatting.nb"
 ]
]

ought to do it. Change the background as appropriate.

Check by toggling the ScreenEnvironment setting in the Format menu.

Addendum

If you want to make this change "permanent":

NotebookSave[
 Notebook[
 
 Cell[StyleData[StyleDefinitions->"Default.nb"]],
 Cell @ CellGroupData[
 
 Cell[StyleData["Notebook"],Background->RGBColor[0.9, 1, 1]],
 Cell[StyleData["Notebook","Printout"],Background->None]
 ,
 Open
 ]
 ,
 StyleDefinitions->"PrivateStylesheetFormatting.nb"
 ],
 FileNameJoin[
 $UserBaseDirectory,"SystemFiles","FrontEnd","StyleSheets","Default.nb"
 ]
]

and then the next time you open Mathematica you should see a blue screen. Just delete the file to return to the default behavior.

edited 1 hour ago

answered 3 hours ago

Carl Woll

60.3k279155

Printing uses the "Printout" screen environment. So, you can control this behavior automatically with a stylesheet. Something like:

SetOptions[
 EvaluationNotebook,
 StyleDefinitions -> Notebook[
 
 Cell[StyleData[StyleDefinitions->"Default.nb"]],
 Cell @ CellGroupData[
 
 Cell[StyleData["Notebook"],Background->RGBColor[0.9, 1, 1]],
 Cell[StyleData["Notebook","Printout"],Background->None]
 ,
 Open
 ]
 ,
 StyleDefinitions->"PrivateStylesheetFormatting.nb"
 ]
]

ought to do it. Change the background as appropriate.

Check by toggling the ScreenEnvironment setting in the Format menu.

Addendum

If you want to make this change "permanent":

NotebookSave[
 Notebook[
 
 Cell[StyleData[StyleDefinitions->"Default.nb"]],
 Cell @ CellGroupData[
 
 Cell[StyleData["Notebook"],Background->RGBColor[0.9, 1, 1]],
 Cell[StyleData["Notebook","Printout"],Background->None]
 ,
 Open
 ]
 ,
 StyleDefinitions->"PrivateStylesheetFormatting.nb"
 ],
 FileNameJoin[
 $UserBaseDirectory,"SystemFiles","FrontEnd","StyleSheets","Default.nb"
 ]
]

and then the next time you open Mathematica you should see a blue screen. Just delete the file to return to the default behavior.

edited 1 hour ago

answered 3 hours ago

Carl Woll

60.3k279155

edited 1 hour ago

answered 3 hours ago

Carl Woll

60.3k279155

answered 3 hours ago

Carl Woll

60.3k279155

answered 3 hours ago

Carl Woll

60.3k279155

Beautiful. Thank you. Does this SetOptions method have a simple global implementation?
â€“Â thejacksonjive
2 hours ago

@thejacksonjive You could save the stylesheet in FileNameJoin[$UserBaseDirectory, "SystemFiles", "FrontEnd", "StyleSheets"]. If it has the name "Default.nb", it should be the default style sheet used from then on. If it doesn't have the name "Default.nb", than you would need to change the DefaultStyleDefinitions option (use the option inspector or CurrentValue[$FrontEnd, DefaultStyleDefinitions] = name) to point to it.
â€“Â Carl Woll
2 hours ago

add a commentÂ |Â

Beautiful. Thank you. Does this SetOptions method have a simple global implementation?
â€“Â thejacksonjive
2 hours ago

@thejacksonjive You could save the stylesheet in FileNameJoin[$UserBaseDirectory, "SystemFiles", "FrontEnd", "StyleSheets"]. If it has the name "Default.nb", it should be the default style sheet used from then on. If it doesn't have the name "Default.nb", than you would need to change the DefaultStyleDefinitions option (use the option inspector or CurrentValue[$FrontEnd, DefaultStyleDefinitions] = name) to point to it.
â€“Â Carl Woll
2 hours ago

Beautiful. Thank you. Does this SetOptions method have a simple global implementation?
â€“Â thejacksonjive
2 hours ago

@thejacksonjive You could save the stylesheet in FileNameJoin[$UserBaseDirectory, "SystemFiles", "FrontEnd", "StyleSheets"]. If it has the name "Default.nb", it should be the default style sheet used from then on. If it doesn't have the name "Default.nb", than you would need to change the DefaultStyleDefinitions option (use the option inspector or CurrentValue[$FrontEnd, DefaultStyleDefinitions] = name) to point to it.
â€“Â Carl Woll
2 hours ago

add a commentÂ |Â

thejacksonjive is a new contributor. Be nice, and check out our Code of Conduct.

draft saved

draft discarded

thejacksonjive is a new contributor. Be nice, and check out our Code of Conduct.

draft saved

draft discarded

Post as a guest

Name

Search This Blog

Iyfjky