Excel Page Breaks

Is there a way to remove the default page breaks that excel puts in?

I've tried xls.ResetAllPageBreaks but it doesn't seem to work.

I've also tried

Code:

---

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

---

which is what a recorded macro told me to do. And i get an error (Subscript out of range)

I appreciate any help.

Try this:

Using VBA to Remove All User set Page Breaks:

VB Code:

ActiveSheet.ResetAllPageBreaks

or remove separately

VB Code:

activesheet.Rows.PageBreak = xlNone
    activesheet.Columns.PageBreak = xlNone

This wouldn't be a user set page break it would be an excel set page break. Would there be any way to get rid of that?

In other words is there a way to set page breaks to manual only?

Page breaks are partly a function of the Printer Driver for the selected printer. Excel can't put more on a 'page' than what can be printed. In fact, when you first open a sheet you might notice that there are no dashed pagination lines until the first time you do a print preview.

You can change the apparent pagination by changing font sizes, column widths, and row heights, but Excel is going to make some kind of determination as to what will fit on a page. One thing you can do is make the paper size extremely large, but then that is limited by the printer driver. Tabloid (11" x 17"), if available, is generally the largest paper size.

What exactly are you trying to accomplish?

I have a report that i'm writting to excel, and one of the columns is a little large (probably the cause of the line break thats fustrating me). Anyway i'm trying write to the excel sheet in such a way that all the user has to do to get a nicely formated hard copy would be to hit the print button but.... I dunno maybe i'm being an idiot about this.

If everything fits on one sheet you can do the following, and it scales the width of the active data region to always fit within the margins of a page width.

Code:

---

    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With

---