A5 booklet

On the Margins tab of Page Setup, under "Multiple pages," choose "Book fold." This will automatically give you two A5 pages on an A4 sheet, and, although you create the pages in the normal reading order, with page numbers added in the usual way, Word will print the pages in the required order to create a folded booklet. Note that the total number of pages must be a multiple of 4.

How do I do this on a Mac in Office 365?

The first place to check is your printer driver, in the printer properties. Many (some?) support booklet printing, handling all of the printing the logical pages in the right place on the physical pages. Otherwise you can handle it yourself. Here are some articles on booklet printing:

**http://word.mvps.org/FAQs/Formatting/BookletPrinting.htm**

Booklet Printing in Word http://word.tips.net/T003927_Booklet_Printing_in_Word.html

See**http://www.bluesquirrel.com/clickbook/index.html**- booklet printing software

To find out more information on the topic of multiple page numbers per page, visit the Word MVP Web site: http://www.mvps.org/word/FAQs/Formatting/Print2Pages.htm

!**http://bookletcreator.com/**- Web site that allows you to turn any .PDF file into a booklet

Print a booklet from a Word document–free! http://news.office-watch.com/t/n.aspx?articleid=803&zoneid=12

Print Booklet in Word 2003 http://office.microsoft.com/en-us/word-help/print-a-folded-booklet-HP003072949.aspx

Create holiday cards in Microsoft Word? http://blogs.techrepublic.com.com/howdoi/?p=175&tag=content;leftCol

1.1.1  Linked Text Boxes

• Create  a new Word Document
• Make  the document 38 pages long by inserting 37 page breaks, A4, Landscape with  margins to suit
• Create  two text boxes on each page, one left, one right.
• Go  back to page one, and select the text box on the right, right click and select  Create Text Box Link
• Link  this to the left hand box on page 2
• You  need to do this all the way through your document alternating left and right  until you get to page 38 which will be a left hand link, link this to the box on  the right (booklet page 39) and go backwards up the document until you get to  page 1.
• Save  this document at this stage, you can set it to be a template for 76 page  booklets.
• Now  copy your text from your A5 document and paste it to the text box on the right  of page 1.  All the text will flow through the document to the end and then  come back up to page 1.
• Send  this to print (you can just print odd pages and then even pages) and you will  have your booklet.

1.1.1  Macros for booklet printing

Article contributed by Richard Keijzer and Dave Rado

Limitation: Note that the macro-based method doesn’t allow for much flexibility in page numbering. Using the method described in the article: Booklet printing, you can (for instance) have front matter paginated with lowercase roman numerals followed by the document body paginated with Arabic numerals followed by appendixes paginated separately with A-1, A-2, B-1, B-2, etc., and the method still works, just printing odd pages, then even pages in reverse order; whereas the following macros won’t allow you to do this (because of a limitation of Word’s Print dialog). On the other hand, the macros do save time.

Printing booklets in Word 2000 is a lot simpler than in Word 97, because it allows you to print 2 pages per sheet. Before starting on your booklet, you need to:

• Select File + Page + Setup
• On the Margins tab, select “2 pages per sheet”
• On the Paper Size tab, set the orientation to landscape, and the paper size to double the size of your booklet pages (e.g. set it to A4 for A5 booklets, etc.).
• Set up the other margins as you want them, and close the dialog.

The page will now appear on screen at half the size of the sheet (for instance, if you specified A4, 2 pages per sheet, you will see an A5 page on screen; or if you chose US Letter, you will see a 4.25” x 5.5” half-page - equivalent to Statement paper - on screen).

• Set up the Headers and Footers as appropriate. If you don’t want the page number to print on the back page, you will need to insert the following field construction for your page number in the Header or Footer. To insert the field braces {}, press Ctrl+F9 (don’t type them):

{ = IF { PAGE }  <  { NUMPAGES }  { PAGE } "" }

• If you don’t want the page number to print on the front page select “Different first page” on the Layout tab of the File + Page Setup dialog.
• Save this as a template (select File + Save As, and where it says “Files of Type”, select “Document Template”).
• Insert the following macros into your template. Assign the Booklet2000DuplexPrinter() and/or the Booklet2000SimplexPrinter() macro to toolbar buttons. Or alternatively, you could rename one of these macros to FilePrintDefault(), which would make it automatically intercept the Standard toolbar’s print button when that template is in use.
• Create a new document based on your template and you’re ready to go.

The Booklet2000DuplexPrinter() macro puts the page numbers into a single string, in the required order, and prints using that string. If the number of pages in the document is not a multiple of 4, it first inserts the required number of temporary page breaks so that it is, then deletes them after printing.

If the “pages to print” string is longer than 256 characters (which it will be if the booklet is more than 88 pages long), it chops the string into chunks and prints the chunks separately (making sure that number of pages listed in each “chunk” is a multiple of 4).

The Booklet2000SimplexPrinter() macro is very similar, but it prints the “odd” sheets in one pass (that is, pages 1 and 20 on one sheet, then 3 and 18, and so on); then it displays a message box so you can turn the paper in the printer over, before printing the “even” sheets on the reverse side of the paper (pages 2 and 19, then 4 and 17 and so on).

====== CODE STARTS HERE - ENSURE YOU COPY THE CODE INTO A MODULE IN YOUR TEMPLATE =====

Option Explicit

    ' Declare Module Level Variables

    Dim lngPageNum As Long

    Dim lngNumPages As Long

    Dim lngExtraPages As Long

    Dim rngMyRange As Range

    Dim strPagesToPrint As String

    Dim strOddPagesToPrint As String

    Dim strEvenPagesToPrint As String

Public Sub Booklet2000DuplexPrinter()

    lngNumPages = Selection.Information(wdNumberOfPagesInDocument)

    'If number of pages not a multiple of 4, add manual page breaks at

the end

    If lngNumPages Mod 4 > 0 Then

        Call AddElngExtraPages

    End If

    'Put the pages to be printed into a single string, in the correct

order

    Call GetstrPagesToPrintDuplex

    'Print

    Call PrintPages(strPagesToPrint)

    'If any page breaks were added, delete them again

    If lngExtraPages > 0 Then

        Call DeleteElngExtraPages

    End If

    Call ClearVariables

End Sub

Public Sub Booklet2000SimplexPrinter()

    lngNumPages = Selection.Information(wdNumberOfPagesInDocument)

    'If number of pages not a multiple of 4, add manual page breaks at

the end

    If lngNumPages Mod 4 > 0 Then

        Call AddElngExtraPages

    End If

    'Put the pages to be printed into a single string, in the correct

order

    Call GetstrPagesToPrintSimplex

    Call PrintPages(strOddPagesToPrint)

    MsgBox "Please turn the paper over and press OK when you'r ready to

print", vbInformation + vbOKOnly

    Call PrintPages(strEvenPagesToPrint)

    'If any page breaks were added, delete them again

    If lngExtraPages > 0 Then

        Call DeleteElngExtraPages

    End If

    Call ClearVariables

End Sub

Sub AddElngExtraPages()

    'Adds page breaks to make the number of pages a multiple of 4

    lngExtraPages = 4 - lngNumPages Mod 4

    For lngPageNum = 1 To lngExtraPages

        Set rngMyRange = ActiveDocument.Range

        rngMyRange.Collapse wdCollapseEnd

        rngMyRange.InsertBreak Type:=wdPageBreak

    Next lngPageNum

    lngNumPages = Selection.Information(wdNumberOfPagesInDocument)

End Sub

Sub GetstrPagesToPrintDuplex()

    For lngPageNum = 1 To lngNumPages / 2

        If Len(strPagesToPrint) > 0 Then

            strPagesToPrint = strPagesToPrint & ","

        End If

        If lngPageNum Mod 2 = 1 Then

            'odd page

            strPagesToPrint = strPagesToPrint & (lngNumPages + 1 -

lngPageNum) & "," & lngPageNum

        Else

            ' even page

            strPagesToPrint = strPagesToPrint & lngPageNum & "," &

(lngNumPages + 1 - lngPageNum)

        End If

    Next lngPageNum

End Sub

Sub GetstrPagesToPrintSimplex()

    For lngPageNum = 1 To lngNumPages / 2

        If lngPageNum Mod 2 = 1 Then

            'odd page

            If Len(strOddPagesToPrint) > 0 Then

 strOddPagesToPrint = strOddPagesToPrint & ","

            End If

            strOddPagesToPrint = strOddPagesToPrint & (lngNumPages + 1 -

lngPageNum) & "," & lngPageNum

        Else

            'even page

            If Len(strEvenPagesToPrint) > 0 Then

 strEvenPagesToPrint = strEvenPagesToPrint & ","

            End If

            strEvenPagesToPrint = strEvenPagesToPrint & lngPageNum & ","

& (lngNumPages + 1 - lngPageNum)

        End If

    Next lngPageNum

End Sub

Sub PrintPages(strPagesToPrint As String)

    ' Declare Variables

    Dim lngPos As Long

    Dim strPagesToPrintChunk As String

    Dim vntTestPages As Variant

    'The 'pages to print' string can only be a maximum of 256 char long

    '(Word limitation). If > 256 characters, prints it in smaller chunks

    '(otherwise just prints it)

    Do While Len(strPagesToPrint) > 256

        strPagesToPrintChunk = Left$(strPagesToPrint, 256)

        'Strip the chunk string so it ends before the final comma

        lngPos = InStrRev(strPagesToPrintChunk, ",")

        strPagesToPrintChunk = Left$(strPagesToPrintChunk, lngPos - 1)

        'find out how many pages are now listed in the string (needs to

be a multiple of 4)

        vntTestPages = Split(strPagesToPrintChunk, ",")

        lngNumPages = UBound(vntTestPages) + 1

        'If not a multipke of 4, removes some page numbers so that it is

        If lngNumPages Mod 4 > 0 Then

            For lngPageNum = 1 To lngNumPages Mod 4

 lngPos = InStrRev(strPagesToPrintChunk, ",")

 strPagesToPrintChunk = Left$(strPagesToPrintChunk,

lngPos - 1)

            Next

        End If

        Application.PrintOut Pages:=strPagesToPrintChunk, _

         Range:=wdPrintRangeOfPages,

Background:=False

        'Strip main string so it starts just after the same comma

        strPagesToPrint = Mid$(strPagesToPrint, lngPos + 1)

    Loop

    Application.PrintOut Pages:=strPagesToPrint, _

     Range:=wdPrintRangeOfPages, Background:=False

End Sub

Sub DeleteElngExtraPages()

     'If manual page breaks were added earlier, deletes them again

      Set rngMyRange = ActiveDocument.Range

      rngMyRange.Collapse wdCollapseEnd

      rngMyRange.MoveStart unit:=wdCharacter, Count:=-(lngExtraPages +

1)

      rngMyRange.Delete

End Sub

Sub ClearVariables()

    Set rngMyRange = Nothing

    lngPageNum = 0

    lngNumPages = 0

    lngExtraPages = 0

    strPagesToPrint = vbNullString

    strOddPagesToPrint = vbNullString

    strEvenPagesToPrint = vbNullString

End Sub

1.1.2  Booklet creator

Welcome to Booklet Creator, a Web site that allows you to turn any .PDF file into a booklet. It is really easy to use too! All you need to do is have a .PDF file, a .PDF reader (you can get one here for free) and a printer.

Let’s start by clicking on the Instructions link in the top right hand corner. That will give you all the instructions you need to get your .PDF file into a booklet form. If you have a file that is not a .PDF, you can follow the link they provide for PrimoPDF and convert it for free.

In step 2 of the instructions, you’ll find a link that goes back to the booklet creator upload page. Uploading is really easy. To do it, just click on the Choose button and select your document. Now, select the maximum pages for your booklet, if you want blank pages at the end and whether the document is in a right to left language.

When you're done, click on the Create Booklet button. That will bring up a window that asks if you want to save or open the document. I would choose Save, because then, you can print it out at any time.

That’s all there is to it! I can’t wait to use this site to make the next flyer for my book club or a nifty menu for my next dinner party. Check it out today!  http://bookletcreator.com/

Hi,

Keep the original doc In A4, but print using booklet printing.

Regards.

JY