Finding Print Range

[Guest]

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.

 

[Guest]

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!

 

[Guest]

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!

 

[Zone]

Karen, does this help? James

LastRow = [e9].Row
While Cells(LastRow, "e").Offset(2) <> ""
LastRow = Cells(LastRow, "e").End(xlDown).Row
Wend

 

[Guest]

Yes, James! Thank you!!

Karen, does this help? James

LastRow = [e9].Row
While Cells(LastRow, "e").Offset(2) <> ""
LastRow = Cells(LastRow, "e").End(xlDown).Row
Wend

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!

 

[Zone]

You're welcome! And thanks for the feedback.

Yes, James! Thank you!!

Karen, does this help? James

LastRow = [e9].Row
While Cells(LastRow, "e").Offset(2) <> ""
LastRow = Cells(LastRow, "e").End(xlDown).Row
Wend

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!


:

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.