Print page problem

[sthack99]

Can anyone tell me what I'm doing wrong? I'm trying to set it to if every cell in the 1st range is blank, then only print page 3; if every cell in the 2nd range is blank, then only print page 4; if neither range is completely blank, then print both sheets.

Sub Button11_Click()
'
' Button11_Click Macro
' Macro recorded 7/24/2007 by Sara Thackston
'

Dim rngP As Range
Dim rngG As Range

Set rngP = Sheets("AP TEMP").Range("I2:I15,L2:L15").Value
Set rngG = Sheets("AP TEMP").Range("I18:I25,L18:L25").Value

If rngG = "" Then
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=Range("N36").Value, Collate _
:=True
Exit Sub
End If
If rngP = "" Then
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=Range("N36").Value, Collate _
:=True
Exit Sub
End If
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=Range("N36").Value, Collate _
:=True
End Sub

 

[Joe Was]

Try this:


Sub myPrnt()
'Standard module code, like: Module1.
Dim rngP As Object, rngG As Object, cell As Object
Dim booMyFlg1 As Boolean, booMyFlg2 As Boolean
Dim lngG&, lngP&

Set rngP = Sheets("Sheet1").Range("I2:I15", "L2:L15")
Set rngG = Sheets("Sheet1").Range("I18:I25", "L18:L25")

For Each cell In rngG
If cell.Value = "" Then lngG = lngG + 1
Next cell

If lngG = rngG.Count Then booMyFlg1 = True

If booMyFlg1 = True Then
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=Range("N36").Value, Collate _
:=True
Exit Sub
End If

For Each cell In rngP
If cell.Value = "" Then lngP = lngP + 1
Next cell

If lngP = rngP.Count Then booMyFlg2 = True

If booMyFlg2 = True Then
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=Range("N36").Value, Collate _
:=True
Exit Sub
End If

ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=Range("N36").Value, Collate _
:=True
End Sub

 

[sthack99]

worked great - thanks!