Sub AutoOpen() 
    With ActiveDocument.PageSetup 
        If .FirstPageTray <> wdPrinterDefaultBin Then 
            .FirstPageTray = wdPrinterDefaultBin 
        End If 
        If .OtherPagesTray <> wdPrinterDefaultBin Then 
            .OtherPagesTray = wdPrinterDefaultBin 
        End If 
    End With 
End Sub
