http://www.openoffice.org/api/docs/comm ... tener.html
Im Groben also ungefähr:
Code: Alles auswählen
Global oListener As Object
Sub Listener_registrieren()
oListener = CreateUnoListener( "Ereignis_", "com.sun.star.view.XPrintJobListener" )
ThisComponent.addPrintJobListener(oListener)
End Sub
Sub Ereignis_printJobEvent(oEvent)
Msgbox "Druck-Ereignis"
End Sub
Gruß
Stephan