also, ich weis ja nicht, ob das der richtige Weg ist.
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
Vielleicht hilfts