--------------------------------  
Attribute VB_Name = "PrintList"  
Private Sub ПечатьЧНС()  
 
'*******************************************************  
' ПечатьЧНС  
' Макрос записан 17.01.1998  
' Автор Климов Павел Юрьевич  
 
' http://www.msoffice.nm.ru  
'*******************************************************  
 
Количество = ExecuteExcel4Macro("GET.DOCUMENT(50)")  
 
If Количество = 0 Then  
  MsgBox Prompt:="Нет данных для вывода на печать", _  
  Buttons:=vbCritical, Title:=""  
  Exit Sub  
End If  
 
Первый = Application.InputBox( _  
        Prompt:="Введите номер первой страницы", _  
        Title:="Печать", Type:=1)  
Последний = Application.InputBox( _  
        Prompt:="Введите номер последней страницы", _  
        Title:="Печать", Type:=1)  
 
If Первый < 1 Or _  
  Первый > Количество Then Первый = 1  
If Последний < Первый Or _  
  Последний > Количество Then Последний = Количество  
 
For Лист = Первый To Последний Step 2  
   Application.ActiveSheet.PrintOut From:=Лист, To:=Лист  
Next  
 
If MsgBox(Prompt:="Хотите ли Вы продолжить печать ?", _  
  Buttons:=vbYesNo, Title:="") = vbNo Then  
  Exit Sub  
Else  
  MsgBox Prompt:="Переверните листы и нажмите 'ОК'", _  
  Buttons:=vbOKOnly, Title:=""  
End If  
 
For Лист = Первый + 1 To Последний Step 2  
   Application.ActiveSheet.PrintOut From:=Лист, To:=Лист  
Next  
 
End Sub  
--------------------------------

Так макрос Вам уже предоставили! Необходимо только вставить его в Вашу книгу Excel. Давайте её сюда (не более 100 Kb, Excel 2003)

Здравствуйте. В 2003  
Меню Файл-параметры страницы-Лист-сквозные строки.

Вы помните свой вопрос? Ладно, уточним: У Вас на всех листах будет одинаковое к-во сквозных строк?

Вот это выполните один раз:  
Sub Zag()  
' Макрос записан 07.08.2010 (Sergey)  
   Dim Sh As Worksheet  
   For Each Sh In ThisWorkbook.Worksheets  
       With Sh.PageSetup  
           .PrintTitleRows = "$1:$3" ' Сюда подставите номера первой и последней сквозной строки  
           .PrintTitleColumns = ""  
       End With  
   Next  
End Sub

"Когда я записываю макрос я потом не могу его вызвать на другой документ?" - это вопрос?  
"может можно это делать в openoffice?" - с этим вопросом на Форум по Оpenoffice.

Светлана 777, я не понимаю Вас, что куда записывать вызывать? Скопируйте макрос в общий модуль Вашей книги и выполните его один раз. После этого можете его удалить.  
На всех листах появятся сквозные строки.

KuklP Спасибо за ответы.Но я тоже не понимаю Dim Sh As Worksheet  
For Each Sh In ThisWorkbook.Worksheets  
With Sh.PageSetup  
.PrintTitleRows = "$1:$3" ' Сюда подставите номера первой и последней сквозной строки  
.PrintTitleColumns = ""  
End With  
Next  
End Sub  
ЭТО ЧТО??? КУДА ЭТО ВСЕ ПИСАТЬ??? а мои листы как не печатались, так наверное и не распечатаются НИКОГДА!!! Простите конечно, но я очень далека от программирования и пишу вам своим простым обывательским языком. А от того что вы не понимаете меня, я злюсь еще больше. Я в отчаянии.  
Для Юрия М принцип работы макроса я знаю, я не могу его вызвать на другой документ сочетанием клавиш, не получается.

Спасибо, Сергей, Юрий в понедельник вечером напишу результат, сейчас просто уже сил нет всем этим заниматься!!!

Виктор, попробуй:  
 
Sub Print_()  
   With Worksheets("tabl")  
       .PrintOut From:=1, To:=1  
       .PrintOut From:=.HPageBreaks.Count + 2  
   End With  
End Sub  
 
.HPageBreaks.Count - число горизонтальных разрывов страниц. Соответственно, страниц по вертикали .HPageBreaks.Count+1, а номер первой страницы во втором столбце страниц .HPageBreaks.Count + 2.  
Если параметр To: не указан, печать идет до последней страницы.