Da ich erst seit einigen Wochen von MS-Office auf Libre-Office umgestiegen bin (MS schließt ja seine "Alt"-Kunden bei Windoof 7 mit älteren Office-Versionen aus
McMattes

Ich habe wesentliche Bestandteile davon irgendwoher übernommen;Sub aktuelleSeitedrucken
dim oDoc as object : oDoc = ThisComponent
dim oViewC as object : oViewC = oDoc.CurrentController.getViewCursor()
dim aDruckerOptionen(0) as new com.sun.star.beans.PropertyValue
aDruckerOptionen(0).Name = "Pages"
aDruckerOptionen(0).Value = trim(str(oViewC.getPage()))
oDoc.print(aDruckerOptionen())
End sub