Perfect Printouts
Description | : | Puts printouts on the left, butted vertically, inserts slide number to the right of the upper right corner in the current font and sets the images as background. |
Download |
---|---|---|---|
Author(s) | : | GDMD | |
Category | : | Printout | |
Last Updated | : | June 20, 2016 | |
Requirements | : | OneNote 2010 or above | |
Screenshot | : | ||
![]() Perfect Printouts No screenshot available for this macro. |
|||
Changelog | : | June 20, 2016 (D0F9F6) - GDMD These versions are no longer supported: January 06, 2016 - GDMD |
I use this for PowerPoint printouts.
Thanks.
If you're asking why I don't just print it sideways and rotate it, it's because then I'd have to move all the slides together in order to remove the space created after rotating from portrait.
Otherwise, I appreciate the macro for making printouts viable for landscape pdfs and recommend the Select Images as an obvious combination.
<Comment text=\"Modify property(x) --> set variable(0)\" />
<Expression>$ImageObject_3.x = 0</Expression>
I am not sure because I deleted the lines immediately after installing the macro but that should be what they say. It is also the first in a long list of code that looks similar to what I posted.
~~~~~~~~~~~~
<Macro name="Number Printout Pages" category="Printout" description="Inserts the page number at the top and to the right of each printout page in the current font." version="10">
<ModifyVar name="pageIndexOn" op="set" value="0" />
<ModifyVar name="rightX" op="set" value="0">
<LeftIndex value="0" />
</ModifyVar>
<ModifyVar name="topY" op="set" value="0">
<LeftIndex value="0" />
</ModifyVar>
<For each="Image">
<That hasProp="isPrintOut" op="eq" value="true" />
<ModifyProp name="background" op="set" value="true" />
<ModifyVar name="rightX" op="set" prop="x">
<LeftIndex var="pageIndexOn" />
</ModifyVar>
<ModifyVar name="rightX" op="add" prop="width">
<LeftIndex var="pageIndexOn" />
</ModifyVar>
<ModifyVar name="rightX" op="add" value="5">
<LeftIndex var="pageIndexOn" />
</ModifyVar>
<ModifyVar name="topY" op="set" prop="y">
<LeftIndex var="pageIndexOn" />
</ModifyVar>
<ModifyVar name="pageIndexOn" op="add" value="1" />
</For>
<ModifyVar name="highestIndex" op="set" var="pageIndexOn" />
<ModifyVar name="pageIndexOn" op="set" value="0" />
<For each="Page">
<WhileVar name="pageIndexOn" op="lt" var="highestIndex">
<Insert type="Outline">
<ModifyProp name="x" op="set" var="rightX">
<RightIndex var="pageIndexOn" />
</ModifyProp>
<ModifyProp name="y" op="set" var="topY">
<RightIndex var="pageIndexOn" />
</ModifyProp>
<ModifyVar name="pageIndexOn" op="add" value="1" />
<ModifyProp name="text" op="set" var="pageIndexOn" />
</Insert>
</WhileVar>
</For>
</Macro>
~~~~~~~~~~~
Just create a "new macro" and "import" this code via copy and paste. If you don't want the pages to be stuck in place after running the macro, then delete the line "<ModifyProp name="background" op="set" value="true" />". Keep in mind, the numbers will be their own entity and won't move with the pages if you move them after running the macro.
Hope this helps.