Hello,

I am currently using Visio 2013. It is a great program but I've had some printing issues.
I have a Visio file with 3 pages. 2 pages are side by side on the same page, and the 3rd page is a blown up subprocess and appears as Page 2 on the bottom tabs.

When printing, the 3rd page (page 2) prints correctly, but the first 2 pages print with an overlap between them. I know that this is meant to be a helpful feature when gluing 2 pages together, but for my use, I would like to eliminate this overlap. I have attempted playing with margins in File > Print > Page Setup, and File > Print > Edit Header & Footer, but to no avail.

Could somebody please help find a way to help eliminate this overlap short of either cutting the paper physically or having to export the file into PDF and use acrobat to print my Visio pages?

Any help would be greatly appreciated! Thanks in advance.

Hi,

Try to enable "Page breaks" in VIEW tab and Show group. It will show a dotted line when the shape cross into another page.

Also, we can create three pages at the bottom, and insert the shapes to each tab of pages.

Hi Jaynet and thank you for your reply.

My Page Breaks are already displaying and I am within the dotted lines on both sides. It seems that Visio takes the closest part of each adjoining page and reprints it as you can see on this link (http://office.microsoft.com/en-ca/visio-help/control-content-overlap-RZ001036380.aspx?section=14)

Creating a third page for printing would work, but that would mean having additional pages for every Process just to print the pages correctly.

Is there any alternative?

Hi,

Have you try to decrease the margins?

And, click Page Setup, and then click the Layout and Routing tab.

In the Separate list, click one of the following:

• To prevent separation of lines that are currently overlapping, click No lines.
• To prevent separation of connector lines that connect to common shapes, click Unrelated lines.

In the Overlap list, click one of the following:

• To overlap all lines that are near each other, click All lines.
• To overlap connector lines that connect to common shapes, click Related lines.

And is the shape shows correctly in print preview? Also we can start Visio 2013 in safe mode to check whether the issue is caused by some add-ins.

Hi Jaynet and thank you so much for your reply!

Decreasing the margins to 5mm all around has solved the problem. The Layout and Routing seemed to be working fine before so that was not the issue.

One last question though: how can I change the default margins to be 5mm all around instead of 10mm? We are many people here using Visio and all have this problem and it would simplify things greatly if there was a way we can change the default settings for the margins. Do you know how to do this?

Thanks!

Andrew

PS: How do I verify my account so I can post images here?

Hi,

Try to use Record Macro to record the vba code for change the margins, then run the macro when Visio document opened.

Sub Change_Margins()

    'Enable diagram services
    Dim DiagramServices As Integer
    DiagramServices = ActiveDocument.DiagramServicesEnabled
    ActiveDocument.DiagramServicesEnabled = visServiceVersion140

    Dim UndoScopeID1 As Long
    UndoScopeID1 = Application.BeginUndoScope("Page Setup")
    Application.ActivePage.Background = False
    Application.ActivePage.BackPage = ""
    Application.ActivePage.PageSheet.CellsSRC(visSectionObject, visRowPrintProperties, visPrintPropertiesLeftMargin).FormulaU = "0.5 in"
    Application.ActivePage.PageSheet.CellsSRC(visSectionObject, visRowPrintProperties, visPrintPropertiesRightMargin).FormulaU = "0.5 in"
    Application.ActivePage.PageSheet.CellsSRC(visSectionObject, visRowPrintProperties, visPrintPropertiesTopMargin).FormulaU = "0.5 in"
    Application.ActivePage.PageSheet.CellsSRC(visSectionObject, visRowPrintProperties, visPrintPropertiesBottomMargin).FormulaU = "0.5 in"
    Application.ActivePage.PageSheet.CellsSRC(visSectionObject, visRowPrintProperties, visPrintPropertiesPaperSource).FormulaU = "15"
    Application.EndUndoScope UndoScopeID1, True

    'Restore diagram services
    ActiveDocument.DiagramServicesEnabled = DiagramServices

End Sub

Private Sub Document_DocumentOpened(ByVal Doc As IVDocument)

Change_Margins

End Sub

PS: For verify the account, here's something for you to read:

1. To avoid SPAM, only verified users to post links/images
2. A verified user means user have some contribution in the forum. When user has 15 recogonize points, the user will be verified.
Anything detail, you can reference to forum rules.

Thank you very much Jaynet, I will try this and let you know how it goes.

Hello, Jaynet,

I am wanting to print a very large Visio 2013 Professional Value Stream Map (VSM) File and post it on a wall in a conference room.  I would like it to be four feet tall (top to bottom) and 8 feet wide (left to right).  What would be the best way to do this? 

Thanks for your ideas.

Don