Посмотрите, пожалуйста код. Здесь на форуме слышал, что лучше не использовать метод .Select. Почему и что использовать вместо?  
 
Sub Печать_1_стороны()  
Application.ScreenUpdating = False  
For num = Range("Початковий_номер").Value To Range("Кінцевий_номер").Value  
Worksheets("Основний").Select  
Range("Номер_студента").Select  
ActiveCell.FormulaR1C1 = num  
Worksheets("Сторона 1").Select  
ActiveWindow.SelectedSheets.PrintOut Copies:=1  
Next num  
Worksheets("Основний").Select  
Application.ScreenUpdating = True  
End Sub