OpenOffice.info

Moin,
fürs 'merken' liegen 2 Möglichkeiten nahe.
Im Document - du weist einer bestimmten Zelle einen Wert zu den du auswerten kannst
In einem File - im Prinzip der selbe Weg nur in einer eigenen Datei.

... oder ich habe die Frage nicht richtig verstanden ...
Ford

Gibt es wirklich keine Möglichkeit sich die Druckereinstellungen zu merken?

 ' Wenn Wert nicht gesetzt mind. 1 Exemplar
 If anz < 1 Then
   anz = 1
 End If
        
 Dim document As object  			        
 dim dispatcher as object 
        
 document = ThisComponent.CurrentController.Frame 
 dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

 If neuerDrucker <> "" Then
   dim args1(0) as new com.sun.star.beans.PropertyValue
   args1(0).Name = "Printer"
   args1(0).Value = neuerDrucker
   dispatcher.executeDispatch(document, ".uno:Printer", "", 0, args1())
 End If

 'Options.PrintBackground = False
 If Druckerdialog = 0 Then   
   dim args2(1) as new com.sun.star.beans.PropertyValue
   args2(0).Name = "Copies"
   args2(0).Value = anz
   args2(1).Name = "Collate"
   args2(1).Value = false 
   
   dispatcher.executeDispatch(document, ".uno:Print", "", 0, args2())
 else
   dim args3() as new com.sun.star.beans.PropertyValue
   dispatcher.executeDispatch(document, ".uno:Print", "", 0, args3())
 End If

Hallo Leute hab den Fehler jetzt selber gefunden :oops:

[code]
' Wenn Wert nicht gesetzt mind. 1 Exemplar
If anz < 1 Then
anz = 1
End If

Dim document As object
dim dispatcher as object

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

If neuerDrucker <> "" Then
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Printer"
args1(0).Value = neuerDrucker
dispatcher.executeDispatch(document, ".uno:Printer", "", 0, args1())
End If

'Options.PrintBackground = False
If Druckerdialog = 0 Then
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Copies"
args2(0).Value = anz
args2(1).Name = "Collate"
args2(1).Value = false

dispatcher.executeDispatch(document, ".uno:Print", "", 0, args2())
else
dim args3() as new com.sun.star.beans.PropertyValue
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args3())
End If
[/code]

ich Vollhorst hab bei der Druckerwahl ".uno:Print" und nicht ".uno:Printer" geschrieben 8)

Ich entschuldige mich für meine Dummheit *sorry*

Eine Frage hätte ich dann doch noch.

Ist es irgendwie Möglich sich zu merken was der User eingestellt hatte?

Hallo Leute :) ,

Ich hab einen Betrag in Writer und wurde auf Basic und Java verwiesen ^^. Naja wusst nicht wie ich den Betrag verschieben kann darum gibt es bei mir jetzt einen Link

[url]http://de.openoffice.info/viewtopic.php?f=1&t=44920[/url]

Ich bin über jede Antwort froh :)