also, ich weis ja nicht, ob das der richtige Weg ist.
![Question :?:](./images/smilies/icon_question.gif)
Aber, dein Weg ist natürlich realisierbar.
Das folgende Makro speichert zuerst die gerade aktuelle Datei als .jpg, ruft dann die gespeicherte Datei in einem neunen Fenster auf , druckt diese am Standarddrucker aus und schliesst das Fenster wieder.
Code: Alles auswählen
Sub Main
myDoc = thisComponent
'speichern des aktuellen Dokumentes als jpg
Dim myProps(0) as New com.sun.star.beans.PropertyValue
sURL = "file:///D:/Puffer/test.jpg" 'Pad anpassen!!!
myProps(0).name="FilterName"
myProps(0).value="draw_jpg_Export"
myDoc.storeToURL(sURL, myProps())
' öffnen der gerade gespeicherten Datei
Dim oProp()
oNewDoc=StarDesktop.loadComponentFromURL(sURL, "_blank", 0, oProp())
msgBox "hallo"
' drucken
oNewDoc.print(oProp())
' schliessen
oNewDoc.close(-1)
End Sub
Vergiss nicht, Pfad und Dateiname anzupassen
![Exclamation :!:](./images/smilies/icon_exclaim.gif)
Vielleicht hilfts
![Wink :wink:](./images/smilies/icon_wink.gif)