CorelDRAW Graphics Suite X6

CorelDRAW Graphics Suite X6 reduce all page sizes

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.

Myron 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
Cancel
Up 0 Down

Reply

Cancel
TheSign Guy over 7 years ago

Hello PraireDog; There should be something as as whats below. What I'm showing is from X7, but X6 should be close.

George
Cancel
Up 0 Down

Reply

Cancel
Myron over 7 years ago in reply to TheSign Guy

That's a lot of clicking SignGuy. lol ..get's it done though.
Cancel
Up 0 Down

Reply

Cancel
Mek over 7 years ago

On X5, but on X6 should be similar
Cancel
Up 0 Down

Reply

Cancel