Sub Envelope()
Dim sPrinter As String
    With Dialogs(wdDialogFilePrintSetup)
        sPrinter = .Printer
        .Printer = "\\JOHNSONHALL\Laser 4"
        .DoNotSetAsSysDefault = True
        .Execute
        Application.PrintOut Filename:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=False, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
        .Printer = sPrinter
        .Execute
    End With
lbl_Exit:
    Exit Sub
End Sub