Форум Луцької інтернет-спільноти

Листи обзиваються наприклад як небудь і що тоді??? Номери теж порозкидані.  

black писав: Листи обзиваються наприклад як небудь і що тоді??? Номери теж порозкидані.  

Sub Prr()
  n = 3
  For i = 1 To n
      s = Format(n - i + 1)
      k = n - i + 1
      Sheets(k).Select
      ActiveWindow.SelectedSheets.PrintOut Copies:=1
  Next i
End Sub

так получится по номерам. но я так понимаю что это в конкретновзятом Вашем ексель листе не работает т.к. "номери порозкидані"
но я не смог у себя повторить такой ситуации. создал лист с 3-мя листами и как их местами не менял все равно печатаются от последнего до первого по расположению так как на экране, т.е. так как надо

может быть примерчик екселевского документа сюда дали в котором данный макрос работает непраивльно

оскільки змінив роботу, мені вже це нецікаво. Закриваю тему...