Sub AktuelleSeiteDrucken
'Makro von Andrew Pitonyak http://www.pitonyak.org/AndrewMacro.sxw
dim aPrintOps(0) as new com.sun.star.beans.PropertyValue
oDoc = ThisComponent
oViewCursor = oDoc.CurrentController.getViewCursor()
aPrintOps(0).Name = "Pages"
aPrintOps(0).Value = trim(str(oViewCursor.getPage()))
oDoc.print(aPrintOps())
End sub