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 SubGruß
Stephan