Two Bugs/incompatibility? Print all pages to printer or PDF (orgchart)

Dick- thank you for your reply- I'll send a test file per your instructions
(I'll make a new one, so that confidential data is not included). As to your
questions:

1) Text rendering problem is seen in all drawings I've printed to PDF so
far, using Visio2003 (11.3216.5703) to Adobe Acrobat 4.05a. So far newer
versions of Acrobat have not been approved by our corporate IT department,
so upgrading is not a current option.

2) I use a Xerox WorkCentre Pro 35. It has multiple paper drawers, by
default containing all of the paper sizes I've used in my Visio document.
Once I went into the "second layer" menu I described in my last post, it did
print to proper page sizes, so it has something to do with that initial page
setup dialogue box not actually changing the real settings used by the
printer for each page.

Thanks,
Keith

"Dick Hamilton [MSFT]" wrote in message
...
Hi KR,

Here's a link to a Microsoft Product Support Options Q&A article with
additional options:
http://support.microsoft.com/default...b;en-us;102344

For the second issue that you are seeing with text rendering when printing
to the Acrobat PDFwriter, what version of Visio are you using and are you
seeing this with a specific drawing or with all drawings that you output?
It would be helpful to get a copy of the drawing which exhibits the
behaviour. if you can send this, please send to my reply address here by
removing the "online" in the address.

For the first issue with everything in a mixed page size/orientation
drawing
being printed at the same size as the first page, what brand printer are
you
using? thanks.

--
Dick Hamilton
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no
rights.


"Mark Nelson [MS]" wrote in message
...
Thanks for the detailed information. Without working through a similar
example myself, I don't know what the expected behavior is here.

--
Mark Nelson
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no
rights.

"KR" wrote in message
...

Mark-

Thank you for your reply. This is a rather long post, but ends with a
request to understand the functionality I've identified, if it isn't a
bug.

To ensure that I didn't drag any previous errors into my testing, I
started
with a brand new source file (Excel 2003) and loaded up Visio2003. I
created
a new org chart using the org chart wizard, allowing the wizard to
break
the
chart across multiple pages (30+ total). On a number of pages, there
were
more boxes than would fit on the page, so I did the following under
page
setup, for those pages only: (1) changed the paper type to 8.5x14, (2)
changed the page size to "fit to drawing contents", and (3) indicated
"fit
to 1 sheet across and 1 sheet down" so it would all fit on one page.
All
other pages are set to 8.5x11, fit to drawing contents, and 100%.

[note: I found that I had to "fit to drawing contents" or else some
boxes
get cut off at the left and/or right edges of the page even when fit to
1x1
pages, and I fit to 1x1 sheets on larger sheets because even with the
larger
page size, some boxes still hang off the edges from the wizard.]

Everything still printed to 8.5x11, so I did some more digging,
starting
with yet another new file, and here is the best explanation I have come
up
with:
When I set up the page settings in Visio ([page setup/print
setup/printer
paper/select size from combobox]) that does not appear to be linked to
the
page size used by the printer, even though it says 8.5x14 in the page
setup
userform. If I go one step further under "settings" and change the page
size
there (selecting it from [page setup/print setup/printer
paper/setup/paper/size]) then the setting does affect which paper size
is
used by the printer. Using macro recorder to identify the difference,
the
second method changes "visPrintPropertiesPaperSource" whereas the first
method does not! "visPrintPropertiesPaperKind" also ends up with
different
values, although I'm not familiar with the Visio object model, so I
don't
know what the difference between the values of "5" and "189" translate
to
in
functionality.

I guess I'm surprised that the first method isn't sufficient (which
IMHO
would be more similar to other MSOffice programs), or that the first
method
would still appear to the user to be set at a specific page size but
not
be
"carried" to actual print size. The recorded macros to see the
difference
are pasted below.At least I have a fix, and maybe I can add some
toolbar
buttons and just reformat my pages with a macro instead of having to go
so
deep into layers of userforms to change my page size. My charts are
often
30+ pages and sometimes almost 100 pages, so doing this manually
through
all
those layers of userforms is just plain clunky.

Still curious about why the difference exists, and whether this was
planned/desired behavior- maybe it is useful for some other situation
that I
just haven't been in yet, so if I know the proper reason why the first
method doesn't change the paper size, I can use that to my advantage
when
I
do find myself in whatever circumstance it was designed for.

Thanks,
Keith

Recorded macros:
Sub attempt1() 'change the paper size via [page setup/print
setup/printer
paper/select size from combobox]



Application.ActiveWindow.Page =
Application.ActiveDocument.Pages.ItemU("Page-4")



Dim UndoScopeID1 As Long

UndoScopeID1 = Application.BeginUndoScope("Page Setup")

Application.ActivePage.Background = False

Application.ActivePage.BackPage = ""

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPage,
visPageWidth).FormulaU = "585.508 mm"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPage,
visPageHeight).FormulaU = "189.508 mm"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPage,
visPageDrawSizeType).FormulaU = "1"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPrintProperties, visPrintPropertiesOnPage).FormulaU = "1"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPrintProperties, visPrintPropertiesPaperKind).FormulaU = "5"

Application.EndUndoScope UndoScopeID1, True



End Sub



Sub attempt2() 'change the paper size via [page setup/print
setup/printer
paper/setup/paper/size]



Application.ActiveWindow.Page =
Application.ActiveDocument.Pages.ItemU("Page-12")



Dim UndoScopeID1 As Long

UndoScopeID1 = Application.BeginUndoScope("Page Setup")

Application.ActivePage.Background = False

Application.ActivePage.BackPage = ""

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPage,
visPageWidth).FormulaU = "488.80955555556 mm"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPage,
visPageHeight).FormulaU = "213.508 mm"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPage,
visPageDrawSizeType).FormulaU = "1"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPrintProperties, visPrintPropertiesLeftMargin).FormulaU = "6.35
mm"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPrintProperties, visPrintPropertiesRightMargin).FormulaU = "6.35
mm"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPrintProperties, visPrintPropertiesTopMargin).FormulaU = "6.35
mm"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPrintProperties, visPrintPropertiesBottomMargin).FormulaU = "6.35
mm"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPrintProperties, visPrintPropertiesOnPage).FormulaU = "1"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPrintProperties, visPrintPropertiesPaperKind).FormulaU = "189"

Application.ActivePage.PageSheet.CellsSRC(visSecti onObject,
visRowPrintProperties, visPrintPropertiesPaperSource).FormulaU = "15"

Application.EndUndoScope UndoScopeID1, True



End Sub




"Mark Nelson [MS]" wrote in message
...
For the first issue, make sure that you do not have "Same as printer"
setting checked in the File Page Setup dialog.

snip
--
Mark Nelson
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no
rights.

"KR" wrote in message
...
snip

Possible bug #1:
----------------------
When I print all to the printer, they all show up on 8.5x11 (which
is
the
same size as my first sheet, FWIW). The larger pages are sized down,
so
that
my largest charts that were on 11x17 are so small they are
unreadable.
I
would have expected each sheet to print out based on the settings
for
that
sheet (?) so I'm not sure why print all overrides all that work I
did
to
get
everything sized to paper that makes my charts readable.

snip