Lösung in VBA

Sub AlleBlätterDrücken()

ActiveWorkbook.PrintOut

End Sub

Oder

Sub AlleBlätterDrücken()

ThisWorkbook.PrintOut

End Sub