Is there a way to print based on a particular filter?

Catalin.B · #4 03-20-2012, 06:13 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Apply filter with VBA	bobsawyer7	Outlook	0	03-12-2012 04:02 AM
Mail Merge to print specific record based on mergefield criterias	nicnad	Mail Merge	1	02-22-2012 01:53 AM
Modify vba code to print based on name in the InputBox	OTPM	Project	0	05-25-2011 02:03 AM
filter	kwlickt	Excel	1	03-28-2011 11:15 AM
could you help me help me with advanced filter	Nora	Excel	1	05-15-2009 11:10 AM