Sub StandardFax()
Dim oDoc as Object
Dim Dummy()
Dim printprops(3) as New com.sun.star.beans.PropertyValue
oDoc = thisComponent
printprops(0).Name = "Name"
printprops(0).Value="HylaFax" 'oder wie auch immer
printprops(1).Name = "PaperFormat"
printprops(1).Value = com.sun.star.view.PaperFormat.A4
printprops(2).Name = "PaperOrientation"
printprops(2).Value = com.sun.star.view.PaperOrientation.PORTRAIT
oDoc.setPrinter(printprops())
oDoc.print(Dummy())
End Sub
Das Ganze kann dann in die Symbolleiste gelegt werden und mit dem
entsprechenden Symbol versehen werden.
Damit funktioniert "Standard-Fax senden" wieder wie gewohnt...
Gruß
Heiko
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
