Sub mlk()
Call impression(1)
If Not IsEmpty(Range("h13")) Then Call impression(3)
If Not IsEmpty(Range("n13")) Then Call impression(5)
If Not IsEmpty(Range("u13")) Then Call impression(7)
If Not IsEmpty(Range("aa13")) Then Call impression(9)
If Not IsEmpty(Range("ah13")) Then Call impression(11)
End Sub
Sub impression(a)
ActiveWindow.SelectedSheets.PrintOut From:=a, To:=a + 1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End Sub