MS Office Forum

Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds

need pagebreak

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

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

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

'if the department is a new department add the row header
sDeptName = .Cells(iRow, 17).Value
.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



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.