Номера листов и страниц

[Submarina_84]

Подскажите плиз как написать в макросе простановку номера листа и страниц с разными значениями.
т.е. лист 1 - вверху справа, а страницы снизу например начиная с 103

[vikttur]

Колонтитулы игнорируете?

[Submarina_84]

Почему игнорирую? Подскажите плиз, вот как в колонтитуле сделать и вверху и внизу номера страниц но чтоб были разными разными?

[vikttur]

Да, с разными - не подскажу.

[Submarina_84]

От вредности не подскажите, или от незнания??!!

[Hugo121]

Макросом может быть так - сперва задать один колонтитул, задать печать 102 страниц, затем заменить колонтитул, задать печать оставшихся страниц.
Не проверял - бумаги жалко

P.S. Проверил без бумаги (записано рекордером, особо не правил):

Sub Macro1()

    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .RightHeader = "&P"
        .LeftFooter = ""
    End With
    
    Macro2
    
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .RightHeader = ""
        .LeftFooter = "&P"
    End With
   
  Macro3
  
End Sub

Sub Macro2()
    Application.ActivePrinter = "pdfFactory Pro on FPP3:"
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, _
        ActivePrinter:="pdfFactory Pro on FPP3:"
End Sub

Sub Macro3()
    Application.ActivePrinter = "pdfFactory Pro on FPP3:"
    ActiveWindow.SelectedSheets.PrintOut From:=3, Copies:=1, _
        ActivePrinter:="pdfFactory Pro on FPP3:"
End Sub

[Submarina_84]

наверное меня не поняли. Хотелось бы чтоб так:

[Hugo121]

Это тоже можно на этом алгоритме построить - печатать по одному листу, меняя колонтитул.
Запишите процесс рекордером, потом подправьте.
Но может есть покороче путь, не вдумывался... Но раз все давно молчат, вероятно нет.

Грубо так (ещё нужно потом лишние колонтитулы подчищать):

Sub test2()
Dim i&
For i = 1 To 2
Macro6 i
Next
End Sub

Sub Macro6(x)
    Application.ActivePrinter = "pdfFactory Pro on FPP3:"

    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .RightHeader = "Приложение 1.1" & Chr(10) & "Лист " & x
        .RightFooter = "&P"
    End With
    
        ActiveWindow.SelectedSheets.PrintOut From:=x, to:=x, Copies:=1, _
        ActivePrinter:="pdfFactory Pro on FPP3:"
End Sub

[Submarina_84]

Спасибо вам!!! будем таким способом пробовать.

[slan]

а вот так?