Sub hkvdrucken()

i = Sheets.Count
j = i

For n = 1 To j
    Sheets(i).Select
    ActiveSheet.PageSetup.PrintHeadings = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    i = i - 1
Next