Auto Sort/Print Macro

Here is a link to a video showing you how to apply the macro:

http://www.youtube.com/watch?v=zXpMS0deYyI

Here is the macro so that you can copy and paste it:

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A:D").Sort Key1:=Worksheets("Sheet1").Range("A1"), Order1:=xlAscending, Header:=xlYes
ActiveSheet.PrintOut
End Sub

Hope this helps!