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

K

KR

I have a 9-page orgchart from the orgchart wizard. After the wizard created
the sheets, I did some minor layout changes (using the orgchart toolbar),
then also changed the paper and/or drawing size to get each sheet to print
on one sheet of paper (2 are 11x17, 2 are 8.5x14, etc.)

When I print one sheet to the printer or PDF, it works fine (prints on the
appropriate size of paper, perfectly readable)

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.

Possible bug #2:
----------------------
When I print all to the Adobe Acrobat PDFWriter, the footer in the
PDF-Reader shows the appropriate page size(s), although I'd have to set up
each page to print at the desired size (printing the whole bunch still
defaults to all 8.5x11). But the real problem with this option- so I can
send the charts to folks who don't have visio- is that I get the pages and
boxes, but the contents are gibberish.For example, one person's name that is
perfectly readable in visio comes out "&DUVMH$QQ0" and it isn't just the
wrong alpha-numerics, many of the characters are overlapping the characters
to their left and/or right.

So other than posting to this group in the hopes that I'm just missing some
settings, procedure, or a workaround... This isn't the first possible bug
I've found and posted here (e.g. 'random' box sizing when saving a chart as
web page(s))- is there anything else I should be doing, like a process of
submitting these for review by someone at MS? If so, how do I submit
possible bugs for review?

Thanks,
Keith
 
M

Mark Nelson [MS]

For the first issue, make sure that you do not have "Same as printer"
setting checked in the File > Page Setup dialog.

For the second issue, if you are getting legible results when printing to a
regular printer, I would suspect that the gibberish is a problem in
PDFWriter.
 
K

KR

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(visSectionObject, visRowPage,
visPageWidth).FormulaU = "585.508 mm"

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

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

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

Application.ActivePage.PageSheet.CellsSRC(visSectionObject,
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(visSectionObject, visRowPage,
visPageWidth).FormulaU = "488.80955555556 mm"

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

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

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

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

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

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

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

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

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

Application.EndUndoScope UndoScopeID1, True



End Sub




Mark Nelson said:
For the first issue, make sure that you do not have "Same as printer"
setting checked in the File > Page Setup dialog.
--
Mark Nelson
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no rights.
<snip>
 
M

Mark Nelson [MS]

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 said:
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(visSectionObject, visRowPage,
visPageWidth).FormulaU = "585.508 mm"

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

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

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

Application.ActivePage.PageSheet.CellsSRC(visSectionObject,
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(visSectionObject, visRowPage,
visPageWidth).FormulaU = "488.80955555556 mm"

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

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

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

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

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

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

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

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

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

Application.EndUndoScope UndoScopeID1, True



End Sub




Mark Nelson said:
For the first issue, make sure that you do not have "Same as printer"
setting checked in the File > Page Setup dialog.
--
Mark Nelson
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no rights.
<snip>
 
D

Dick Hamilton [MSFT]

Hi KR,

Here's a link to a Microsoft Product Support Options Q&A article with
additional options:
http://support.microsoft.com/default.aspx?scid=kb;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 said:
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 said:
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(visSectionObject,
visRowPage,
visPageWidth).FormulaU = "585.508 mm"

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

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

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

Application.ActivePage.PageSheet.CellsSRC(visSectionObject,
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(visSectionObject,
visRowPage,
visPageWidth).FormulaU = "488.80955555556 mm"

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

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

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

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

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

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

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

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

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

Application.EndUndoScope UndoScopeID1, True



End Sub




Mark Nelson said:
For the first issue, make sure that you do not have "Same as printer"
setting checked in the File > Page Setup dialog.
--
Mark Nelson
Microsoft Corporation

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

news:[email protected]...
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>
 
K

KR

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 said:
Hi KR,

Here's a link to a Microsoft Product Support Options Q&A article with
additional options:
http://support.microsoft.com/default.aspx?scid=kb;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 said:
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 said:
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(visSectionObject,
visRowPage,
visPageWidth).FormulaU = "585.508 mm"

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

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

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

Application.ActivePage.PageSheet.CellsSRC(visSectionObject,
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(visSectionObject,
visRowPage,
visPageWidth).FormulaU = "488.80955555556 mm"

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

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

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

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

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

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

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

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

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

Application.EndUndoScope UndoScopeID1, True



End Sub




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.

<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>
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top