Adding page Break with VBA

[mattxu2006]

HI.
I have been trying to write a macro to add a page break in Excel 2007, but I have had no success.

A friend recomended:
Columns("CC:CC").Select
ActiveWindow.SelectedSheets.Vpagebreaks.add Before:= ActiveCell

This has not had any affect when I have printed.

Have any suggestions?

Thanks

 

[AlphaFrog]

Where do you want to add the Page break?

Your code above adds a Vertical page break in column CC which is a column WAAAY to the right.

This example will add a Horizontal page break at row 10

ActiveSheet.HPageBreaks.Add Before:=Rows(10)

This example will add a Vertical page break at Column G

ActiveSheet.VPageBreaks.Add Before:=Columns("G")

 

[mattxu2006]

howdy AlphaFrog
Column CC is one of the places that I would like to insert a Vertical Page Break.

Unfortunately, what you suggest isn't working either.

 

[leknowlton]

howdy AlphaFrog
Column CC is one of the places that I would like to insert a Vertical Page Break.

Unfortunately, what you suggest isn't working either.

Mattxu2006, it is not working for you, because you need to change the view of your spreadsheet to pagebreak view before dealing with pagebreaks:

ActiveWindow.View = xlPageBreakPreview

Then, when you are done dealing with page breaks, switch back to normal view:

ActiveWindow.View = xlNormalView

Hope this helps!