reduce all page sizes

PrairieDog
over 7 years ago

This should be easy. I have a 32 page file created at dimensions of 8.5 x 11. Is there a way

to reduce all pages to 7.44 x 9.70 without having to resize any of the content of the 32 pages?

Thanks.

Parents
No Data
Reply
  • over 7 years ago
    macro needs some streamlining I'm sure?

    Sub ChangePageSize()
    Dim p As Page, w#, h#
    For Each p In ActiveDocument.Pages
    ActivePage.SetSize 7.44, 9.7
    ActivePage.Next.Activate
    On Error GoTo ErrHndler
    ErrHndler:
    Err.Clear
    Next p
    End Sub
Children
No Data

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.