Ich sehe es mir heute Abend mal an...

okay,
entweder
"Standard" > "neu"
oder
"Module1" > "Bearbeiten"

Dann öffnet sich eine Art Editor, in den Du den Quellcode einkopierst:

Sub Print_Document

odoc = thisComponent
dim printProp(1) as new com.sun.star.beans.PropertyValue
printProp(0).name = “Wait”
printProp(0).Value = true
printProp(1).name = “CopyCount”
rem Der folgende Wert gibt die Anzahl Ausdrucke an:
printProp(1).Value = 2
odoc.print(printProp())

End Sub

Habe die Beschreibung korrigiert. Danke

@Miracolitag

danke für deine Antwort, ich habe nun das Macro nach Anweisung erstellt und gespeichert.
Beim Rechnungsdruck wird aber nur ein Exemplar gedruckt, ohne Fehlermeldung.

Bin dann über Extras-Macros-Macro ausführen-Meine Macros-Standard-Module1-Ausführen gegangen,
dort bekomme ich dann den Fehler "Basic-Syntaxfehler. Syntaxfehler"
in der Codezeile "printProp(0).name = "Wait" " angezeigt,
beim bestätigen der Meldung springt die Markierung zwischen das "=" und "Wait" und zeigt die gleiche Fehlermeldung.

Wo liegt der Fehler?

Gruß Bernhard

Probiere bitte mal das:

Sub Print_Document

odoc = thisComponent
dim printProp(2) as new com.sun.star.beans.PropertyValue
printProp(0).name = “Wait”
printProp(0).Value = true
printProp(1).name = “CopyCount”
rem Der folgende Wert gibt die Anzahl Ausdrucke an:
printProp(1).Value = 2
odoc.print(printProp())

End Sub

Hallo Miracolitag,

auch der geänderte Quellcode zeigt das gleiche verhalten 🙁

Gruß Bernhard

So, jetzt gehts. Allerdings werden immer zwei Exemplare gedruckt. Eins hab ich damit nicht hinbekommen.
Der Druckername muss natürlich individuell angepasst werden.

sub Druck_im_Hintergrund

' Variablen deklarieren
Dim oODoc as Object
Dim Dummy()
Dim printprops(3) as New com.sun.star.beans.PropertyValue

' aktuelles Dokument holen
ODoc=ThisComponent

' Definition des Druckers
printprops(0).Name = "Name"
' Den Druckernamen ggf. aus der OS-Druckerverwaltung kopieren, um Fehler zu vermeiden
printprops(0).Value="Dell C2660dn Color Laser PCL6"
printprops(1).Name = "PaperFormat"
printprops(1).Value = com.sun.star.view.PaperFormat.A4
printprops(2).Name = "PaperOrientation"
printprops(2).Value = com.sun.star.view.PaperOrientation.PORTRAIT

' Drucker auswählen
ODoc.setPrinter(printprops())

Dim printProp(2) as New com.sun.star.beans.PropertyValue
printProp(0).Name = "Pages"
' Seitenumfang
printProp(0).Value = "1-100"
printProp(1).Name = "CopyCount"
' Anzahl der Exemplare im 2er-Set: "1" heißt 1 x 2 Exemplare
printProp(1).Value = 1

myDoc=ThisComponent
myDoc.Print(printProp())

end sub

Hallo Miracolitag,

jetzt läufts, nach einer kleinen Änderung.

mit dieser Einstellung wird nur 1x gedruckt "printProp(1).Value = 1 "

geändert auf 2, gibts auch 2.

Besten Dank für deine Hilfe und Geduld

Bernhard