How to insert a page break in Excel VBA
If your activecell is in row 1, you're going to have trouble.
Where is that activecell?
if activecell.row = 1 then
'do nothing
else
ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=ActiveCell
end if
And the next question is: Are you sure you want to be depending on the
activecell?
Craig wrote:
Hi,
I want to insert a page break after a condition has been met. I created a
recorded macro to see what the code looks like then I inserted it into my
real code but got an error
Here is a snippet of the real code:
=================================
If recordCounter = 8 Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Befo=ActiveCell
'Sheets("output").Cells(rowNum, colNum).Value="TEXT TEST"
recordCounter = 0
End If
===========================================
I know the rest of the code except for the HPageBreak statement is good
since I tested it before pasting the statement in...I tested it using the
"TEXT TEST" and it did insert sample text..but instead of inserting sample
text at Cell location (rownum, colNum) I want to insert a page break...
Any suggestions...thanks much for any help with this!!!
Craig
--
Dave Peterson
|