Sub D_ePost()
'
    Static sPrinter As String
 
    IF sPrinter = "" THEN sPrinter = "\\dasfile\Maier_Blanko"
    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 = sPrinter
'
End Sub