von Toxitom » So, 02.11.2003 15:05
hey Simon,
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
Ein bischen Ahnung von Macroprogrammierung solltest Du allerdings haben. Ich habe auf Fehlerprüfroutienen und detaillierte Variablendefinitionen verzichtet, solltest du aber noch anfügen.
Vergiss nicht, Pfad und Dateiname anzupassen
Vielleicht hilfts
hey Simon,
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]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[/code]
Ein bischen Ahnung von Macroprogrammierung solltest Du allerdings haben. Ich habe auf Fehlerprüfroutienen und detaillierte Variablendefinitionen verzichtet, solltest du aber noch anfügen.
Vergiss nicht, Pfad und Dateiname anzupassen :!:
Vielleicht hilfts :wink: