Finding Print Range
You're welcome! And thanks for the feedback.
"Karen53" wrote in message
...
Yes, James! Thank you!!
"Zone" wrote:
Karen, does this help? James
LastRow = [e9].Row
While Cells(LastRow, "e").Offset(2) < ""
LastRow = Cells(LastRow, "e").End(xlDown).Row
Wend
"Karen53" wrote in message
...
Hi,
Ok, now I have the active sheet worked out.
Sub PrintDoc1()
'
' PrintDoc1 Macro
'
Dim LastRow As Long
LastRow = ActiveSheet.Range("E9").End(xlDown).Row + 1
Range("E1:" & "H" & LastRow).Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub
I'm really stumped on the 2 sequential empty cells.
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.
|