If/Then Print Selected Page

[chelseasikoebs]

I thought this would be really easy, but it's not working. I wanted it to look at a cell on page 1 and if it's empty, do nothing, but if it has content in it, print page 1, then go on to page 2 and do the same thing all the way through to page 6. But I can't even get page 1 to work!

Sub PrintPurchLogs()

Dim x As Range
For Each x In Range("D10")
    If IsEmpty(x) Then
        'do nothing
    Else
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=False, IgnorePrintAreas:=False
    End If
        
End Sub

 

[Datsmart]

You can add a "Next x" line at the bottom or your code, or do it all in a single line like this:

Sub PrintPurchLogs2()
    If Range("D10").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=False, IgnorePrintAreas:=False
End Sub

 

[chelseasikoebs]

Okay. I see. I forgot the Next. I like yours better, though. Thank you! Now, if I want it to then look at cell D62, I just repeat the code but replace D10 with D62? or do I need Then If or something like that?

Sub PrintPurchLogs2()     If Range("D10").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=False, IgnorePrintAreas:=False
    If Range("D62").Value <> "" Then ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=False, IgnorePrintAreas:=False End Sub