' Используется для разметки номеров при печати на листах A4 , чтобы получилось 4 страницы формата A5
' Групировка номеров страниц из PDF документа для печати на принтере
' для последующего переплета. Может использоваться с программами, которые имеют поле для
' ввода печати номеров страниц с определенным порядком и возможностью установки режима брошюры.
' Для примера в linux mint такой программой может быть Xreader.

' Параметры процедуры:
'iFirstPage - номер страницы в документе , с которого нужно начать печать
'iLastPage - последний отпечатываемый номер страницы в документе
'iCountListsSew - кол-во страниц , сшиваемых в блок (блоки должны быть кратны 4 ). Для тех кто в танке, поясняю.
'Листы A4 печатаются с 2 сторон. Каждая из сторон поделены на 2 части. В результате выходит 4 страницы книги
'на одном листе. Листы сгибаются на пополам. Можно сшивать каждый согнутый лист с другими по отдельности (iCountListsSew = 1).
'А можно соединить (вложить друг в друга) листы блоками (например по 4) и сшивать уже блоки (iCountListsSew = 4)

' Общее кол-во рассчитываемых страниц должно быть кратно 4 (потому что на однм листе 4 страницы).
' Именно поэтому я сделал возможность расчета с любой начальной страницы (какие-то ненужные страницы можно пропустить, либо потом отдельно допечатать).

sub createNumbersPrint(iFirstPage as Long , iLastPage as Long , iCountListsSew as Long)
    
    dim as string sFirstMove , sSecondMove
    
    dim as Long iAllPages = iLastPage - iFirstPage + 1
    
    dim as Long iCountBox = iCountListsSew*4
    
    dim as Long iPeriod = iAllPages\iCountBox
    
    dim as Long iStartPage = iFirstPage
    
    for j as Long = 1 to iPeriod
  
  for i as long = 0 to iCountBox\4 -1
   
   sFirstMove &= ( j*iCountBox - i*2 + iFirstPage -1 & "," & j*iCountBox-(j*iCountBox - i*2 - iStartPage ) & "," )
   
   sSecondMove = (j*iCountBox-(j*iCountBox - i*2 - (iStartPage+1) ) & "," &  j*iCountBox - (i*2 + 1) + iFirstPage -1 & "," & sSecondMove  )
   
  Next
  
  iStartPage += iCountBox
  
    Next
    
    sFirstMove    = left(sFirstMove , len(sFirstMove )-1)
    
    sSecondMove    = left(sSecondMove , len(sSecondMove )-1)    
    
    ? sFirstMove
    ?
    ? sSecondMove
    
End Sub

createNumbersPrint(1 , 32,  1)

sleep