How do I programmatically fit org chart to page?

[Maredith]

I'm creating org charts based on in MS Access. (Part of this was figured out
ahead of time for me.) If the chart extends below the bottom of the page, I
want to scale it to fit.

 

[John Marshall, MVP]

You could do this when you print and let the printer adjust to a single
page.

Application.ActiveDocument.PrintOut PrintRange:=visPrintArea, _
ScaleCurrentViewToPaper:=True, PrinterName:="LaserJet 1012"


John... Visio MVP

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm
Visio Wishlist http://www.mvps.org/visio/wish_list.htm

 

[Maredith]

Hi John,

Thanks for your quick response. However that won't work for what I'm trying
to do. I need an on-line document to display correctly.

I work in an environment where people move quite often within the
organization. Personnel information is maintained in a database. I need an
automated process that goes from pulling data from the database, generating
org charts for multiple sub-organizations using Visio, size each chart to fit
one page, then copy each org charts into a Word document that also includes
other less dynamic information about roles and responsibilities. Finally, the
Word document is copied to a network location available to everyone in the
parent organization. I want one org chart per sub-organization and one page
in the Word doc per org chart. Users can open the document, search for
something like "purchase orders", and read about responsibilities. When they
find the role based on responsibilities for something they need done, they
can scroll up to the org chart for the responsible organization and get the
name for the person currently in that position with their current phone
number.

Does that make sense?