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.

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.

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.

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.

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.

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.