Druckerdialog

[Angelwings]

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

viewtopic.php?f=1&t=44920

Ich bin über jede Antwort froh

[Angelwings]

Hallo Leute hab den Fehler jetzt selber gefunden

Code: Alles auswählen

 ' 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

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

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?

[Angelwings]

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

[Ford-Prefekt]

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