6.2.7 Wie kann man den aktuellen Drucker auslesen?
Dies geht über die Eigenschaften eines Dokumentes und getPrinter. Damit wird der aktuell eingestellte Drucker angezeigt.
sub GetPrinter
   oDoc = ThisComponent
   aPrinterProperties = oDoc.getPrinter()
   oPrinterName = GetProperty(aPrinterProperties, "Name" )
   If IsNull( oPrinterName ) Then
      MsgBox( "Kein Drucker gefunden" )
   Else
      MsgBox( "Der aktuelle Drucker ist: " & oPrinterName.Value )
   EndIf
end sub  
Achtung die Subroutine braucht die Funktion GetProperty. Siehe hier
Seitenanfang