Tisk listu
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' - vytiskne vybraný list v jedné kopii