Microsoft Office Forums - View Single Post - [Solved] Is there a way to print based on a particular filter?

Jamal NUMAN · 03-20-2012, 11:32 AM

Quote:

Originally Posted by Catalin.B

You can place a page break when the cell value in column 1 changes.

Code:

Option Explicit
Sub MakePageBreaks()
Dim i As Integer
ActiveSheet.ResetAllPageBreaks
Application.ScreenUpdating = False

For i = 2 To 800
If ActiveSheet.Cells(i, 1).Text <> ActiveSheet.Cells(i + 1, 1).Text Then
ActiveSheet.Cells(i + 1, 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
End If
Next
Application.ScreenUpdating = True
End Sub

Perfect… this is what I’m looking for exactly. Many thanks Catalin.B. your time and efforts are highly appreciated.

Best

Jamal