Perfect Printouts

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 If this didn't work, get help downloading this macro
Author(s)	:	GDMD
Category	:	Printout
Last Updated	:	June 20, 2016
Requirements	:	OneNote 2010 or above
Changelog	:	June 20, 2016 (D0F9F6) - GDMD Automatically upgraded to the new Macro Language These versions are no longer supported: January 06, 2016 - GDMD Initial version

Comments

Xlrgrade - 2020-09-14

I want to edit the macro such that the printouts are not butted to the left but i cant figure out which. Any help?

Bunny - 2020-08-13

How do I keep the printout landscape?
I use this for PowerPoint printouts.
Thanks.

Anonymous - 2018-10-22

I managed to get my OneNote printouts in Landscape through system dialog > preferences. However, they end up upside down. Could a 180 turn be added?
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.

Show more comments (16 more)

SOHO - 2017-10-22

Flashes a dialog box that says Running macro "perfect printouts" and closes it immediately. Nothing happens.

Omer Atay - 2017-04-24

Mark: This macro does not print out anything. It rearranges an existing document printout on a OneNote page.

Mark - 2017-04-24

When I try to print ne of my pages, it flashes a dialog box I cannot read but does not print anything out. How do I debug what is going on?

Anonymous - 2017-02-01

Hey Anmol. You can just delete two lines. The lines that say something like:
<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.

Anmol - 2017-01-22

Is there any way to remove the left align of the powerpoints? I would like to keep my margins the way they are. If you can tell me what lines to delete from the macro, that would be greatly appreciated!

GDMD - 2016-11-14

Adam.med - I just saw your request. In case it still helps, here is the code you need between the tilde lines (I am having trouble uploading the macro for some reason):
~~~~~~~~~~~~

<?xml version="1.0" encoding="utf-16"?>
<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.

Adam.med - 2016-09-17

Is there a way to just insert slide numbers for the printout, without adjusting their position on the page? I don't know how to read the code in which the macros are written, but if someone would be kind enough to post the relevant code for me to create a macro that does this, that would be greatly appreciated

Adam.med - 2016-09-17

Omer Atay - 2016-07-20

Teal: did you install the macro by double clicking on it?

Teal - 2016-07-18

I just downloaded this but it is not showing up with my macros.

GDMD - 2016-01-07

Ry4n - I thought so too. I haven't been impressed with the lack of support for PDF insertion. I hope this helps.

GDMD - 2016-01-07

Ry4n - I thought so too. I haven't been impressed with the lack of support for PDF insertion. I hope this helps.

GDMD - 2016-01-07

Ry4n - I thought so too. I haven't been impressed with the lack of support for PDF insertion. I hope this helps.

Ry4n - 2016-01-07

you would think Microsoft would make it easy on their customers and already provide the "perfect printout."

Ry4n - 2016-01-07

you would think Microsoft would make it easy on their customers and already provide the "perfect printout."

Name
	E-mail me if someone replies
Comment

Perfect Printouts

Download

Comments

Related Macros

Macros by This Author