Re: How do you print one tab in portrait and other tabs in landsca

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

No, I don't work for Microsoft, but I'm not sure if I qualify for the other
options...

Best regards

John


John Goldsmith
www.visualSignals.typepad.co.uk
www.visualSignals.co.uk

"Joe (Portrait & Landscape)"
<JoePortraitLandscape@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:CC366A36-CC93-4170-94C1-025F85243309@xxxxxxxxxxxxxxxx
Thanks John. I appreciate your help. Do you work for Microsoft or are
you
just a computer Good Samaritan?

Joe



"John Goldsmith" wrote:

Hello Joe,

Just to let you know that I haven't forgotten about you and should have
the
corrected code for you tomorrow.

Best regards

John


John Goldsmith
www.visualSignals.typepad.co.uk
www.visualSignals.co.uk

"Joe (Portrait & Landscape)"
<JoePortraitLandscape@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:E9EBFC5B-B0AD-48DD-991B-23E8275E70C4@xxxxxxxxxxxxxxxx
John,

I did what you described and but when I printed everything out, it
still
prints everything in the Portrait (or whatever I have selected). So
the
diagram is cut off. The pg 2, 3, 4, 5, & 6 diagrams are oriented one
way
(landscape) and the 'white sheet' is displayed in the orientation that
is
set
(portrait).

Is there another way around this?

Joe




"John Goldsmith" wrote:

Hello Joe,

2002 print pages are, as you've discovered, on a per document basis
I'm
afraid. So you've got two choices. Either upgrade to 2007 or try out
the
code below:

Sub PrintDocPages()
Dim pag As Page
Dim objTempPage As Object
Dim sTempVar As String

For Each pag In ThisDocument.Pages
If Not pag.Background = True Then
If pag.PageSheet.CellsU("PageWidth").ResultIU > _
pag.PageSheet.CellsU("PageHeight").ResultIU Then
ThisDocument.PrintLandscape = True
Else
ThisDocument.PrintLandscape = False
End If
Set objTempPage = pag
sTempVar = objTempPage.Print
End If
Next pag
End Sub

The above code should print the individual pages to the default
printer,
changing the printer page orientation for each page based on the
drawing
page orientation.

If you've not tried any code before and think the above looks a little
daunting, just have a try with the steps below:

1) Create a copy of your document (just to ensure you're happy with
the
results).

2) Press alt+F11 to open the VBA editting window (VBE).

3) In the VBE click Insert / Module and paste the code above into the
new
blank area on the right.

4) Press F5 to run the procedure and with any luck you see some output
in
your printer.

Hope that helps.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"Joe (Portrait & Landscape)"
<JoePortraitLandscape@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:9A0F4F3C-235D-45AE-B143-38CE14E9C34A@xxxxxxxxxxxxxxxx
Unfortunately, I am on Visio 2002. I can tough it out until I get a
newer
version (assuming there is no solution with my version). Thanks.

"John Goldsmith" wrote:

Hello Joe,

Yes, Visio 'Page Setup' is on a per page basis so you can certainly
have
independent settings for each page. (Note this is good for 2003 /
7.
What
version are you on?)

Best regards

John

John Goldsmith
www.visualSignals.co.uk

"Joe (Portrait & Landscape)" <Joe (Portrait &
Landscape)@discussions.microsoft.com> wrote in message
news:8676BB42-0662-4F14-B62C-4795D47EF397@xxxxxxxxxxxxxxxx
I have 6 tabs with different diagrams on each page. Page one is
oriented
in
Portrait setting. Pages 2-6 are in a Landscape orientation. How
do
I
print
the entire document without having to switch back and forth
between
portrait
and landscape settings.

Currently, I go to Print Setup and set Portrait. Print page 1.
Then
go
back to Print Setup and set Landscape. Print pages 2-6. The
reason
I
do
this is once I set either Portrait or Landscape, all six pages
print
in
the
orientation that is set.

Is there a way to set the orientation of each page/tab
irrespective
of
the
other pages?

Thanks.











.

Relevant Pages

  • Re: How do you print one tab in portrait and other tabs in landsca
    ... print a range of pages in Portrait, then switch the page setup to landscape ... The printouts were all in the same orientation (portrait) and then I ... For Each pag In ThisDocument.Pages ...
    (microsoft.public.visio.general)
  • Re: page orientation
    ... what I was asking was whether you were seeing that Landscape was ... selected even though you had attempted to change the orientation to ... If portrait is selected and the page still appears to be ... "Suzanne S. Barnhill" wrote: ...
    (microsoft.public.word.pagelayout)
  • Re: How do you print one tab in portrait and other tabs in landsca
    ... prints everything in the Portrait. ... For Each pag In ThisDocument.Pages ... changing the printer page orientation for each page based on the drawing ... Pages 2-6 are in a Landscape orientation. ...
    (microsoft.public.visio.general)
  • Re: How do you print one tab in portrait and other tabs in landsca
    ... Best regards ... changing the printer page orientation for each page based on the drawing ... "Joe (Portrait & Landscape)" ...
    (microsoft.public.visio.general)
  • Report Page Setup
    ... The problem is that even though I set the report paper ... size to A3 portrait before I send it out, ... the orientation and paper size I want? ... Regards ...
    (microsoft.public.access.reports)