Drucken ohne Drucker-Auswahl
Verfasst: So 26. Apr 2015, 16:11
Hallo,
ich hatte ein Macro welches automatisch Dokumente ausdruckte. Leider kommt jetzt immer der Druckdialog, welcher abgenickt werden möchte. Das nervt aber wenn man mehrere Seiten ausdrucken möchte.
Was kann ich tun, damit ich direkt drucken kann?
Hier der Code aus dem Makro:
ich hatte ein Macro welches automatisch Dokumente ausdruckte. Leider kommt jetzt immer der Druckdialog, welcher abgenickt werden möchte. Das nervt aber wenn man mehrere Seiten ausdrucken möchte.
Was kann ich tun, damit ich direkt drucken kann?
Hier der Code aus dem Makro:
Code: Alles auswählen
Sub Drucken
dim iAnzahl as integer
dim iKopien as integer
iAnzahl=inputbox("Wieviele Blätter möchten Sie ausdrucken?", "Anzahl")
if iAnzahl=0 then
exit sub
end if
iKopien=inputbox("Wieviele Kopien möchten Sie ausdrucken?", "Kopien","1")
Dim Props
Dim sDrucker as String
Props=ThisComponent.getPrinter()
sDrucker=Props(0).value
Dim arg(2) as new com.sun.star.beans.PropertyValue
arg(0).name="Name"
arg(0).value = "<" & sDrucker & ">"
arg(1).name = "Wait"
arg(1).value = True
arg(2).name = "Pages"
arg(2).value = "1"
dim xx as integer
dim yy as integer
For xx = 1 to iAnzahl step 1
Main
For yy = 1 to iKopien
ThisComponent.print(arg())
next yy
Next
End Sub