Logo 
Search:

MS Office Forum

Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds

need pagebreak

  Asked By: Ashan    Date: Sep 05    Category: MS Office    Views: 697
  

All I need for this to work is a page break after the departments so
that each page of the report goes to its separate departments.
Everything else works. It is the first if line. Sorry for the other
posts.


Dim rng As Range
With ActiveWorkbook.Worksheets("Sheet1")
FirstRow = 2
LastRow = .Cells(.Rows.Count, 16).End(xlUp).Row
For iRow = LastRow To FirstRow + 1 Step -1

sDeptID = .Cells(iRow, 16)
sNextDeptID = .Cells(iRow + 1, 16)
'first if block creates the Item Name headers


If sDeptID <> sNextDeptID Then .Rows(iRow).PageBreak = xlPageBreakManual

If .Cells(iRow, 16).Value = .Cells(iRow - 1, 16).Value Then
'do nothing if the department is the same as previous


Else
'if the department is a new department add the row header
sDeptName = .Cells(iRow, 17).Value
.Rows(iRow).Insert
.Range(.Cells(iRow, 1), .Cells(iRow, 26)).Interior.ColorIndex = 15
.Cells(iRow, 4).Value = sDeptName

.Cells(iRow, 3).Font.Bold = True
.Cells(iRow, 3).Font.Size = 14
.Cells(iRow, 3).RowHeight = 18

End If


Next iRow

Share: 

 

1 Answer Found

 
Answer #1    Answered By: Corey Brown     Answered On: Sep 05

How do you insert page  breaks??????????

 
Didn't find what you were looking for? Find more on need pagebreak Or get search suggestion and latest updates.




Tagged: