A family of Microsoft word processing software products for creating web, email, and print documents.
Easy enough to set up four columns in Excel where the numbers in the first row are 60 1 2 59 and then in the cells of he second row, insert the formulae
=A1-2, =B1+2, =C1+2, =D1-2
Then copy the formula down fourteen rows and the copy the range to Word, use the Convert table to text, using a , as the separator, then use the replace facility to replace ^p by a , and you will then get
60,1,2,59,58,3,4,57,56,5,6,55,54,7,8,53,52,9,10,51,50,11,12,49,48,13,14,47,46,15,16,45,44,17,18,43,42,19,20,41,40,21,22,39,38,23,24,37,36,25,26,35,34,27,28,33,32,29,30,31
which is what you need to paste into the backstage print view. (Delete the 6 from 60 if you have the numbering starting at 0)
Or, run a macro containing the following code to print the document
Dim p1, p2, p3, p4, i As Long
Dim strPrint
strPrint = ""
p1 = InputBox("Insert the total number of pages (must be a multiple of 4")
p2 = 1
p3 = 2
p4 = p1 - 1
For i = 1 To p1 / 4
strPrint = strPrint & "," & p1 & "," & p2 & "," & p3 & "," & p4
p1 = p1 - 2
p2 = p2 + 2
p3 = p3 + 2
p4 = p4 - 2
Next i
strPrint = Mid(strPrint, 2)
ActiveDocument.PrintOut , Range:=wdPrintRangeOfPages, Pages:=strPrint