问题:

I programmed a little tool in VBA which generates a sheet with some statistics on it. I want to automatically have a printable worksheet, so I set the VPageBreak like this:

ActiveWindow.View = xlPageBreakPreview ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1   ActiveWindow.View = xlNormalView

At first this worked just fine. But the content of this generated worksheet is based on data in another worksheet and when this data changed, the DragOff-Command threw an error. The error occured because the VPageBreak is now automatically set at a place, where the Dragoff is not possible.

I need reliable code, not depending on the origin-data... Is there a way to say "I want this VPageBreak after column E"?

Thanks in advance

回答1:

To get you started, try this ...

Sub SetPageBreaks() Dim MySh As Worksheet      Set MySh = ActiveWorkbook.Worksheets("Sheet1")     MySh.VPageBreaks.Add MySh.[E1]     MySh.VPageBreaks.Add MySh.[J1]      MySh.HPageBreaks.Add MySh.[A5]     MySh.HPageBreaks.Add MySh.[A10]      ' removing breaks      ' note ... page breaks are only counted and accessible as objects     ' when they intersect with a Print range     MySh.PageSetup.PrintArea = "A1:J10"     MySh.HPageBreaks(1).Delete  End Sub

This adds vertical page seperations before columns E and J. No need to make VBA switch into PageBreakView, just set the VPageBreaks property.

You guessed it, ther's also a HPageBreak property for the Worksheet object ...

How to set a VPageBreak between two specific columns?

问题:

回答1: