Finding Print Range
Ok, I've got this much to work:
Sub PrintDoc1()
'
' PrintDoc1 Macro
Dim FirstRow As Long
Dim LastRow As Long
LastRow = Worksheets("Day One").Range("E9").End(xlDown).Row + 1
Range("E1:" & "H" & LastRow).Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub
Now, how do I check for 2 sequential empty cells below E9 and how do I tell
it to use the active worksheet?
I'm jazzed!
Thanks!
"Karen53" wrote:
Hi,
I've been bouncing around researching this and it's just not coming together.
Here's what I need to do.
I have a range from E1:H90. However, below E9 I need to end the print range
when I have 2 sequential empty cells.
Here's the code I have so far:
Sub PrintDoc1()
'
' PrintDoc1 Macro
' Dim LastRow As Long
LastRow = Worksheets("Sheet1").Range("E9").End(xlDown).Row + 1
Range("E1:"&LastRow).Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub
1. This doesn't work
2 How do I check for 2 sequential empty cells below E9?
3. How do I tell it to only print columns E through H?
I would need this to work for whatever is the active worksheet.
Thanks in advance.
|