Поднимите глаза. Над темой, первое предложение:  
"Прежде чем задать вопрос - попробуйте найти ответ поиском."  
 
Правее текста окошко поиска. Введите туда название Вашей темы...  
 
Если там не нашли подходящего, дочитайте текст над темой. Если текста мало, правила здесь:  
<EM>http://www.planetaexcel.ru/forum.php?thread_id=8735</EM>

Интересно, что ТС имел ввиду под: "их последующая печать в файл"?  
Arkadiy, Вы не хотите ничего сделать для себя. Чего тогда ждете от нас?

Я только совсем недавно начал читать и пытаться изучить приметивные макросы. До этого я полтора года печатал все 100 листов по отдельности, задавая каждый раз для каждого листа печать то 1 страницу то две. А оказывается, что можно все это оптимизировать и довести до автоматизации. Я просто прошу подсказать мне с чего в в принципе нужно начинать, для того чтобы реализовать мою задачу, пока я даже не знаю с чего начать((((

Я сейчас использовал вот такого типа макрос  
Sub MyPrint()  
Dim sh As Worksheet, s  
With ThisWorkbook  
For Each sh In .Worksheets  
If Not sh.[b2].Value = 0 Then s = s & sh.Name & ","
Next sh  
s = Split(Left(s, Len(s) - 1), ",")  
.Worksheets(s).PrintOut Copies:=1  
End With  
End Sub  
 
и задавая в ручную область печати для каждого листа. Могу ли я задать условием, что печатать только в листах отсек1 две страницы, а в листах отсек1 (2) 1 страницу.

Восхищен!  
Код в одном месте, файл в другом, а что печатать надо - все равно не понятно.

Страниц, или копий, продвинутый Вы наш?  
И что там делают строки:  
If Not sh.[b2].Value = 0 Then s = s & sh.Name & ","
и  
s = Split(Left(s, Len(s) - 1), ",")  
Если копий, то и вставьте в каждый лист в А1 нужное число копий. Тогда:  
sh.PrintOut Copies:=Sh.[a1].value
Короче:  
Sub MyPrint()  
Dim sh As Worksheet  
For Each sh In ThisWorkbook.Worksheets  
sh.PrintOut Copies:=Sh.[a1].value
Next sh  
End Sub