Can anyone help in finishing off macro

[tweacle12]

I have a macro of which the end of its shown.

With Options

.DefaultBorderLineStyle = wdLineStyleSingle

.DefaultBorderLineWidth = wdLineWidth050pt

.DefaultBorderColor = wdColorAutomatic

End With

ActivePrinter = "\\bly-svr1\Control Bletchley LJ 4050"

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _

wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _

ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _

False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _

PrintZoomPaperHeight:=0

ActiveWindow.Close

End Sub

The problem I have is that its saving the document when it closes and I want it to close and NOT SAVE. Can anyone help?