Sub D_ePost()
'
    ActivePrinter = "E-POSTBUSINESS BOX Printer"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", _
        PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, _
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
'
    ActivePrinter = "\\dasfile\Maier_Blanko"
'
End Sub