Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Unable to insert Pagebreak before row 1108 !!
Dear All,
Before printing ( using code under commandbutton) the code inserts pagebreaks before each chapter ( column 1 not empty). Works fine about 1 year ! Suddenly in 1 worksheet before row 1108 it is not possible to insert a pagebreak, Not by code and NOT manualy. The code triggers error 1004 Application-defined or objecdefined error. Do YOU know a possible cause for this behavior. If bSetPagebracksChapters = True Then With ActiveSheet .ResetAllPageBreaks iLastSourceRow = .Cells(Rows.Count, "A").End(xlUp).Row 'Search for the last row with data in Column A For iRow_Index = 2 To iLastSourceRow Step 1 If IsEmpty(.Cells(iRow_Index, 1).Value) Then Else .HPageBreaks.Add Befo=.Cells(iRow_Index, 1) <<<< This line triggers error 1004 on row 1108 only !!!!! End If Next End With End If Thanks, Filip |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Unable to insert Pagebreak before row 1108 !!
I tried your code and got this message
Run-time error '1004' The action exceeds the number of page breaks you can manually add to a worksheet. A worksheet can contain up to 1026 horizontal page breaks. Do you really want that many page breaks??? -- HTH, Barb Reinhardt "Filips Benoit" wrote: Dear All, Before printing ( using code under commandbutton) the code inserts pagebreaks before each chapter ( column 1 not empty). Works fine about 1 year ! Suddenly in 1 worksheet before row 1108 it is not possible to insert a pagebreak, Not by code and NOT manualy. The code triggers error 1004 Application-defined or objecdefined error. Do YOU know a possible cause for this behavior. If bSetPagebracksChapters = True Then With ActiveSheet .ResetAllPageBreaks iLastSourceRow = .Cells(Rows.Count, "A").End(xlUp).Row 'Search for the last row with data in Column A For iRow_Index = 2 To iLastSourceRow Step 1 If IsEmpty(.Cells(iRow_Index, 1).Value) Then Else .HPageBreaks.Add Befo=.Cells(iRow_Index, 1) <<<< This line triggers error 1004 on row 1108 only !!!!! End If Next End With End If Thanks, Filip |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Unable to insert Pagebreak before row 1108 !!
Hey,
1. observation: iHorizPageBreakCount = .HPageBreaks.Count Inserting the codeline above to show the numbre of Horizontal PageBreaks when the error occurs shows that in my case the error 1004 occures in row 1108 and iHorizPageBreakCount = 20 !! 2. observation: The problem is solved if I delete row 1108 and insert a new row just like is was before. Then - no error - a msgbox at the end of the routine shows that iHorizPageBreakCount = 31 !! Filip "Barb Reinhardt" wrote in message ... I tried your code and got this message Run-time error '1004' The action exceeds the number of page breaks you can manually add to a worksheet. A worksheet can contain up to 1026 horizontal page breaks. Do you really want that many page breaks??? -- HTH, Barb Reinhardt "Filips Benoit" wrote: Dear All, Before printing ( using code under commandbutton) the code inserts pagebreaks before each chapter ( column 1 not empty). Works fine about 1 year ! Suddenly in 1 worksheet before row 1108 it is not possible to insert a pagebreak, Not by code and NOT manualy. The code triggers error 1004 Application-defined or objecdefined error. Do YOU know a possible cause for this behavior. If bSetPagebracksChapters = True Then With ActiveSheet .ResetAllPageBreaks iLastSourceRow = .Cells(Rows.Count, "A").End(xlUp).Row 'Search for the last row with data in Column A For iRow_Index = 2 To iLastSourceRow Step 1 If IsEmpty(.Cells(iRow_Index, 1).Value) Then Else .HPageBreaks.Add Befo=.Cells(iRow_Index, 1) <<<< This line triggers error 1004 on row 1108 only !!!!! End If Next End With End If Thanks, Filip |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Unable to insert Pagebreak before row 1108 !!
Dear All,
Problem: The code could not isert a HPageBreak in the active PrintArea !!! I added 1 codeline to clear the PrintArea ActiveSheet.PageSetup.PrintArea = "" Filip "Barb Reinhardt" wrote in message ... I tried your code and got this message Run-time error '1004' The action exceeds the number of page breaks you can manually add to a worksheet. A worksheet can contain up to 1026 horizontal page breaks. Do you really want that many page breaks??? -- HTH, Barb Reinhardt "Filips Benoit" wrote: Dear All, Before printing ( using code under commandbutton) the code inserts pagebreaks before each chapter ( column 1 not empty). Works fine about 1 year ! Suddenly in 1 worksheet before row 1108 it is not possible to insert a pagebreak, Not by code and NOT manualy. The code triggers error 1004 Application-defined or objecdefined error. Do YOU know a possible cause for this behavior. If bSetPagebracksChapters = True Then With ActiveSheet .ResetAllPageBreaks iLastSourceRow = .Cells(Rows.Count, "A").End(xlUp).Row 'Search for the last row with data in Column A For iRow_Index = 2 To iLastSourceRow Step 1 If IsEmpty(.Cells(iRow_Index, 1).Value) Then Else .HPageBreaks.Add Befo=.Cells(iRow_Index, 1) <<<< This line triggers error 1004 on row 1108 only !!!!! End If Next End With End If Thanks, Filip |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Insert pagebreak when a specific word appears in a column. | Excel Discussion (Misc queries) | |||
Cant move pagebreak in PageBreak View in Excel2003 | Excel Worksheet Functions | |||
Insert row after pagebreak | Excel Programming | |||
INSERT HORIZONTAL PAGEBREAK AFTER EACH LINE IN ENTIRE WORKSHEET . | Excel Worksheet Functions | |||
insert pagebreak after a specific column? | Excel Programming |