What you could do is submit separate print jobs, such that each range will either have content or be blank. Try the following macro:
Code:
Sub PrintReport()
Dim RwStart As Long, RwEnd As Long, RwLast As Long, StrVal As String
With ActiveSheet
RwLast = .Cells.SpecialCells(xlCellTypeLastCell).Row + 1
RwStart = 2
StrVal = Left(.Cells(RwStart, 2).Value, 10)
For RwEnd = RwStart To RwLast
If Left(.Cells(RwEnd, 2).Value, 10) <> StrVal Then
.Range("A" & RwStart & ":I" & RwEnd - 1).Printout
RwStart = RwEnd
StrVal = Left(.Cells(RwStart, 2).Value, 10)
End If
Next
End With
End Sub
Note: with this code you do not need any page breaks - your 'blank' pages should be deleted and your manual page breaks can be deleted also.