I drove myself nuts trying to remove auto page breaks, and insert my
own, with very unstable results. Now I just determine how many blank
lines to insert to shove new data onto the next page.
Private Sub cmdPrint_Click()
Dim intBreakRow As Integer, intNumBreaks As Integer
Dim intCurBreak As Integer, intInsert As Integer
intInsert = 0
intCurBreak = 1
intBreakRow = 69
intNumBreaks = Sheets("today").UsedRange.Rows.Count / 69
While intCurBreak < intNumBreaks
If Sheets("today").Range("D" & intBreakRow) < "" Then
intBreakRow = intBreakRow - 1
intInsert = intInsert + 1
Else
For c = 1 To intInsert
Sheets("today").Rows(intBreakRow).Insert Shift:=xlDown
Next
intBreakRow = intBreakRow + intInsert + 69
intInsert = 0
intCurBreak = intCurBreak + 1
End If
Wend
Application.Dialogs(xlDialogPrint).Show
End Sub
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!