dokument schliessen nach Druck

[keksi1970]

hi,

ich suche eine möglichkeit, nach dem Druck eines Dokumentes dieses ohne Nachfrage zu speichern und zu schliessen.
Es darf auch keine "halb"-Möglichkeit geben.

Also egal ob klick auf DruckButton, oder über Datei>Drucken, beim Ereignis Drucken muss erst gespeichert, dann gedruckt, und dann ohne Fehlermeldung das Dokument geschlossen werden.

Die ersten beiden bereiten mir kein Problem, nur das 3. in Verbindung mit den andern beiden


LG Andreas

[eBayer]

versuchs mal hiermit:
Gruß eBayer

Sub AutoDruck
Dim iCnt As Integer, iMax As Integer
Dim myDoc As Object
Dim printProp(4) as New com.sun.star.beans.PropertyValue
printProp(0).Name = "Pages"
printProp(0).Value = "1-2"
printProp(1).Name = "CopyCount"
printProp(1).Value = 1
printProp(2).Name = "PaperOrientation"
printProp(2).Value = PORTAIT
printProp(3).Name = "PaperFormat"
printProp(3).Value = A4
myDoc=ThisComponent
myDoc.Print(printProp())
iMax = 5 ' für Warteschleife, bis Druck fertig ist
for iCnt = 0 to iMax
On Error Goto Weiter
wait 1000 ' Druck ist aktiv, darum warten bis fertig
myDoc.close(false)
exit for
Weiter:
next ' Druck noch nicht fertig
end sub

[keksi1970]

hi eBayer

die Frage hab ich vielleicht nicht richtig gestellt,

welchem Dokument-Ereignis weise ich dieses Makro zu ?

wie gesagt, es soll egal sein, ob ich "STRG+P" drücke, oder über Datei>Drucken, oder über die Standard-DruckSchaltfläche diese Seite drucke

nach dem Drucken MUSS das Dokument gespeichert und geschlossen werden und dieses kann ich nicht so verwirklichen.

vieleicht hast ja dazu eine Idee

LG
Andreas

[eBayer]

schau doch mal hier hinein.....
http://user.services.openoffice.org/en/ ... int#p83118
Viel Erfolg, eBayer