The document will be printed in the reverse order.
' Printing macros SolidWorks 2006
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim pageArray(3) As Long
Dim vPageArray As Variant
Dim copies As Integer
Dim collate As Boolean
collate = True
Dim N_copies As String ' Number of copies of each sheet
N_copies = "422226"
For i = Len(N_copies) To 1 Step -1
pageArray(0) = i
pageArray(1) = i
pageArray(2) = i
pageArray(3) = i
vPageArray = pageArray
copies = Mid(N_copies, i, 1)
' Print to default printer
Part.Extension.PrintOut2 (vPageArray), copies, collate, "", ""
Next i
End Sub