Excel print order 1

[Maceleven]

Is there a "print pages in reverse order" function in Office 97 Excel. Sorting into reverse order does not have the same effect - I just want the pages with the latest on top

 

[onedtent]

These days most printers have the feature where u can reverse the print order. that would be under printer properties, printing preferences.

If not, u can try this macro (i have not tested it)

Sub PrintBackToFront()
' credited to Jim_Cone
Dim TotalPages As Integer, S As Integer, N As Integer
Dim AllSheets As Sheets
Set AllSheets = ActiveWindow.SelectedSheets
Application.ScreenUpdating = False
For S = AllSheets.Count To 1 Step -1
AllSheets(S).Activate
TotalPages = ExecuteExcel4Macro("get.document(50)&quot
For N = TotalPages To 1 Step -1
AllSheets(S).PrintOut from:=N, To:=N
Next N
Next S
Application.ScreenUpdating = True
Set AllSheets = Nothing
End Sub

 

[Maceleven]

The printer did not have the feature, but your macro worked a treat. Many thanks