Sheet array does not set print order

Public Sub PrintData()
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = ActiveSheet
Sheets(Array("HardCopy", "sheet2", "sheet8", "Sheet10")).Select
ActiveWindow.SelectedSheets.PrintOut , Copies:=1, Preview:=Preview, Collate:=True
Application.ScreenUpdating = True

End Sub

Hello all, is there a way to change the order that the sheets print? sheet 2 is printing before Hardcopy.  The sub is called from a button on my userform. thanks for any help, also if any has a good guide on how to generate reports using vba, I would appreciate it.  I am new to this and would like to know how many properties need to be set in the sub.  For example when you wrap text and autofit a cell,  should you cover all the page set up arguments?