Need help with a word macro.

[tweacle]

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?

 

[Jay Freedman]

Instead of ActiveWindow.Close, use

ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.