Newsgroups: bit.listserv.wpcorp-l
Date:         Thu, 8 Oct 1992 08:53:05 CDT
              <WPCORP-L@UBVM.BITNET>
Comments:     Resent-From: Chris Barnes <CBARNES@TAMVM1>
Comments:     Originally-From: CBARNES@TAMVM1
From:         Chris Barnes <CBARNES@TAMVM1.BITNET>
Subject:      printing a booklete

I sent this a few months ago to WP51-L, but haven't seen anything
about it lately.  I am trying to print a booklete, ie.  print in
landscape mode, fold in half, and staple, the pages come out in
the right order.  I called WP's 1-800 number and they didn't have
a clue as to what I was even talking about.  I would attempt to
write the following macro myself, but I have never even attempted
to write even a simple WP macro, so I think this one would be
out of my league (even though the logic is simple).

If you are having a hard time understanding what I want, try this
little exercise:  take 4 sheets of blank paper, fold them in half,
write page numbers on the (half) sheets, then unfold and look at
where the page numbers are written.  This is what you get:

sheet of paper 1:
front:              (fold
                    crease)
      /---------------^---------------\
      |               !               |
      |               !               |
      |    16         !       1       |
      |               !               |
      \---------------^---------------/
back:
      /---------------^---------------\
      |               !               |
      |               !               |
      |    2          !       15      |
      |               !               |
      \---------------^---------------/

sheet of paper 2:
front:              (fold
                    crease)
      /---------------^---------------\
      |               !               |
      |               !               |
      |    14         !       3       |
      |               !               |
      \---------------^---------------/
back:
      /---------------^---------------\
      |               !               |
      |               !               |
      |    4          !       13      |
      |               !               |
      \---------------^---------------/

etc......

----------------------- < original message > ------------------------

Wouldn't a macro that copied the contents of doc 1 (the original that
gets typed in) to doc 2, move pages into the appropriate order, change
the doc to 2 columns (where page breaks are changed to end-of- column
marks (or whatever WP calls them)), and sent *that* to the printer be
easier (at least on the person doing the printing).  If you were
printing on a (for example) HP Laserjet IID, you could do the entire
print in 1 pass.  Other printers would be done in (max) 2 passes.
And in truth, since most times you will be sending this to a copier,
and most copiers can do 2 single sided -> 1 double sided, this would
still be in 1 pass.

Some points to keep in mind while writing this macro:

a)  The number of pages would have to be an even multiple of 4.
    (hard page returns could have to be added to make this so).
b)  There would have to be a way of putting the page numbers into
    a variable in the macro.


Sample pseduo-code :


Copy doc 1 to doc 2.
Open doc 2.
Change soft returns to Hard Returns.
Do "a" above (ie. add H-PG to end of doc 2).

Set marker at top of document.
Do While marker not at end of document.
   Move last page to marker
   Move marker down 3 pages
   Move last page to marker
   Move marker down 1 page
End

Change doc 2 into 2 columns with Hard Returns changed to
      end-of column markers.

Print doc 2.



Anyone want to take a crack at it?

      --------------------------------------------------
Chris Barnes            |
cbarnes@tamvm1.tamu.edu |  Bow season started last week!
(409) 846-3273 (home)   |  I get to give it a try this weekend...
(409) 845-4437 (work)   |

      --------------------------------------------------
Chris Barnes            |
cbarnes@tamvm1.tamu.edu |  Bow season started last week!
(409) 846-3273 (home)   |  I get to give it a try this weekend...
(409) 845-4437 (work)   |