Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How can I check to see if there is a vertical break?
Hi - I posted a question earlier today but didn't get a response - I think my
earlier question was probably not clear enough. What I am doing is messing with the print zoom properties of the pagesetup and after I mess with the zoom properties then I check to see how many VPageBreaks there are - if there is a VPageBreak (ie ActiveSheet.VPageBreaks.Count 0) then I change the zoom back down a notch and check it again -- I know, messing with PageSetup is very slow, but when I use the PagesWide=1 and PagesLong set to false then sometimes the print job is not maximized as much as it could be - sometimes the 3-15% extra zoom I can get makes all the difference. The problem I am having is that when I change the zoom properties the VPageBreak.Count is not updated with the new pagebreak count. If I am stepping through the code and manually change something in the code (unrelated something) then it will pull a new updated VPageBreak.Count, but when it runs it doesn't seem to refresh the count. I have been able to do some loops in the past where I assign a variable to hold the vpagebreak.count and it will sometimes update with a new count, but not always. I am wondering what I could do to force the count to update with the latest value. Any ideas? Even if it is a slow procedure, because it is much faster than me manually doing it every time I print. Thanks in advance -- Jim |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How can I check to see if there is a vertical break?
Someone recently had a similar question and I found that resetting the paper
size caused Excel to update the page break count. This demonstrates what I mean: Sub a() Dim ZoomFactor As Integer GoTo StartHere Do Sheet1.PageSetup.Zoom = ZoomFactor - 5 Sheet1.PageSetup.PaperSize = Sheet1.PageSetup.PaperSize StartHe ZoomFactor = Sheet1.PageSetup.Zoom Debug.Print Sheet1.VPageBreaks.Count Debug.Print ZoomFactor Loop Until Sheet1.VPageBreaks.Count = 1 End Sub -- Jim "Rubble" wrote in message ... | Hi - I posted a question earlier today but didn't get a response - I think my | earlier question was probably not clear enough. | | What I am doing is messing with the print zoom properties of the pagesetup | and after I mess with the zoom properties then I check to see how many | VPageBreaks there are - if there is a VPageBreak (ie | ActiveSheet.VPageBreaks.Count 0) then I change the zoom back down a notch | and check it again -- I know, messing with PageSetup is very slow, but when | I use the PagesWide=1 and PagesLong set to false then sometimes the print job | is not maximized as much as it could be - sometimes the 3-15% extra zoom I | can get makes all the difference. | | The problem I am having is that when I change the zoom properties the | VPageBreak.Count is not updated with the new pagebreak count. If I am | stepping through the code and manually change something in the code | (unrelated something) then it will pull a new updated VPageBreak.Count, but | when it runs it doesn't seem to refresh the count. | | I have been able to do some loops in the past where I assign a variable to | hold the vpagebreak.count and it will sometimes update with a new count, but | not always. I am wondering what I could do to force the count to update with | the latest value. | | Any ideas? Even if it is a slow procedure, because it is much faster than | me manually doing it every time I print. | | Thanks in advance -- | | Jim |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How can I check to see if there is a vertical break?
Thank you for your response - I used your suggestion of changing the
papersize to its papersize - initially it didn't work, but then when I coupled your response with changing the view to ActiveWindow.View = xlPageBreakPreview then it worked! Thank you for your resonse !!!! It helped a ton !! "Jim Rech" wrote: Someone recently had a similar question and I found that resetting the paper size caused Excel to update the page break count. This demonstrates what I mean: Sub a() Dim ZoomFactor As Integer GoTo StartHere Do Sheet1.PageSetup.Zoom = ZoomFactor - 5 Sheet1.PageSetup.PaperSize = Sheet1.PageSetup.PaperSize StartHe ZoomFactor = Sheet1.PageSetup.Zoom Debug.Print Sheet1.VPageBreaks.Count Debug.Print ZoomFactor Loop Until Sheet1.VPageBreaks.Count = 1 End Sub -- Jim "Rubble" wrote in message ... | Hi - I posted a question earlier today but didn't get a response - I think my | earlier question was probably not clear enough. | | What I am doing is messing with the print zoom properties of the pagesetup | and after I mess with the zoom properties then I check to see how many | VPageBreaks there are - if there is a VPageBreak (ie | ActiveSheet.VPageBreaks.Count 0) then I change the zoom back down a notch | and check it again -- I know, messing with PageSetup is very slow, but when | I use the PagesWide=1 and PagesLong set to false then sometimes the print job | is not maximized as much as it could be - sometimes the 3-15% extra zoom I | can get makes all the difference. | | The problem I am having is that when I change the zoom properties the | VPageBreak.Count is not updated with the new pagebreak count. If I am | stepping through the code and manually change something in the code | (unrelated something) then it will pull a new updated VPageBreak.Count, but | when it runs it doesn't seem to refresh the count. | | I have been able to do some loops in the past where I assign a variable to | hold the vpagebreak.count and it will sometimes update with a new count, but | not always. I am wondering what I could do to force the count to update with | the latest value. | | Any ideas? Even if it is a slow procedure, because it is much faster than | me manually doing it every time I print. | | Thanks in advance -- | | Jim |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Vertical Page Break | Excel Programming | |||
How do I remove unnecessary vertical page break? | Excel Worksheet Functions | |||
Removing A Vertical Page Break That Won't Go! | New Users to Excel | |||
vertical page break | Excel Discussion (Misc queries) | |||
detecting a vertical page break | Excel Programming |