La siguiente macro puede servir. No tiene ningún mérito pues está hecha con la grabadora de macros.
Sub Imprimir()
'
'
Selection.HomeKey Unit:=wdStory ' Imprimo todo el texto
ActivePrinter = "Microsoft XPS Document Writer"
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
End Sub
Puedes utilizar esta otra si previamente haces una selección del texto a imprimir
Sub Macro4()
'
' Macro4 Macro
'
'
Application.PrintOut FileName:="", Range:=wdPrintSelection, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=3, PrintZoomRow:=2, PrintZoomPaperWidth:=11907, _
PrintZoomPaperHeight:=16839
End Sub
De todas formas, se trata de utilizar la grabadora de macros hasta conseguir lo que uno desea.