Hello,
I use the imposition layout tool all the time and find it very useful to create a single page PDF from multiple pages in a CorelDRAW file. I have ran into a little problem where I need the exact opposite of this tool. I have a CDR that contains 9 images per page, all perfectly symmetrical to each other. It's actually a card game layout, 9 cards per page, 3 rows and 3 columns. Each card measures 2.5in x 3.5in. All combined the page is 7.5in x 10.5in.
What I want to do is print to PDF or export as PDF, but just one card per page. The final product would be a multi-page PDF file where the page size is 2.5in x 3.5in and there would be one card per page. Is this possible somehow using CorelDRAW?
1 page with 9 individually grouped cards. Select the nine and run the macro.
If you have 100 pages with 9 cards each you'll end up with 900 pages. Might be best to copy the first nine to a new doc then run the macro.
Sub ShapesAsPages2()
ActiveDocument.BeginCommandGroup "ShapesAsPages2"
Dim s As Shape, sDuplicate As Shape, w#, h#
Dim sr As ShapeRange
Dim PageNext As Page
Set sr = ActiveSelectionRange
For Each s In sr.Shapes
s.GetSize w, h
Set PageNext = ActiveDocument.InsertPages(1, False, ActivePage.Index)
ActivePage.SizeHeight = s.SizeHeight
ActivePage.SizeWidth = s.SizeWidth
s.MoveToLayer PageNext.Layers(s.Layer.Name)
s.AddToSelection
ActiveSelection.AlignAndDistribute cdrAlignDistributeHAlignCenter, cdrAlignDistributeVAlignCenter, cdrAlignShapesToCenterOfPage
DoEvents
Next s
ActiveDocument.Pages.First.Delete
ActiveDocument.EndCommandGroup
End Sub