Application.MailingLabel.DefaultPrintBarCode = False
Application.MailingLabel.CreateNewDocument Name:="5660", Address:="", _
AutoText:="ToolsCreateLabels1", LaserTray:=wdPrinterManualFeed, _
ExtractAddress:=False, PrintEPostageLabel:=False, Vertical:=False