Sub mamacro()
Dim i As Integer, j As Byte, t() As Variant
t = Array("D42", "D97", "D152", "D207", "D262", "D317")
For i = 1 To Worksheets.Count
For j = 0 To 5
If Worksheets(i).Range(t(j)) <> "0" Then Worksheets(i).PrintOut From:=j + 1, To:=j + 1, Copies:=1, Collate:=True
Next j
Next i
End Sub