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.
03-20-2012, 11:32 AM
Similar Threads
Mail Merge to print specific record based on mergefield criterias
Windows 7 64bit 
Office 2010 64bit
Threaded Mode