пересчет при печати

Пользователь

Сообщений: 4837 Регистрация: 06.01.2013

20.10.2009 15:42:08

Форумчане, всем добрый день!
Помогите пожалуйста решить одну проблему!
В расчетах используется функция случайного выбора (RandomSelect). Как сделать, чтобы при печати например 10 листов все они были разные??? Заранее СПАСИБО!

Marchuk Пользователь Сообщений: 1167 Регистрация: 01.01.1970	#2 20.10.2009 16:20:24 F9 ---> Печать

New Пользователь Сообщений: 4837 Регистрация: 06.01.2013	#3 20.10.2009 16:29:24 Может я немного не так спросил, извиняйте, я с Excelем на пока "ВЫ". Перефразирую: Можно ли сделать, чтобы я нажал "печать" и задал 100 экземпляров и они были все разные???

Guest Гость	#4 20.10.2009 16:45:51 Разные = разные номера страниц?

New Пользователь Сообщений: 4837 Регистрация: 06.01.2013	#5 20.10.2009 16:56:37 нет. страница всего одна, но ее надо, например, 100 экземпляров причем с разными значениями! RandomSelect меняет, но делать F9, а потом печать по одной страничке очень нудно! Может что посоветуете?

Marchuk Пользователь Сообщений: 1167 Регистрация: 01.01.1970	#6 20.10.2009 17:10:11 Sub Макрос1() For i = 1 To 100 Calculate ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next i End Sub

aep Пользователь Сообщений: 1 Регистрация: 01.01.1970	#7 20.10.2009 17:25:24 Марчук, спасибо за отклик, но что-то не меняется при печати!Выходят все одинаковые. не имеет ли значение, что я делаю пересчет через Ctrl+Alt+F9??