makro: leere seiten nicht drucken?

Sub Druck()
' Druck Makro
' Makro am 23.08.2003 von XYZ aufgezeichnet
' Tastenkombination: Strg+d
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True
Application.ActivePrinter = "HP LJ 4200 Aufkleber auf LPT1:"
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, _
ActivePrinter:="HP LJ 4200 Aufkleber auf LPT1:", Collate:=True
End Sub