macro per stampa copie multiple

[grubem]

Salve,

devo creare una macro per stampare 2 copie del medesimo documento Writer e collegarla ad un tasto su una toolbar; non sono u grande esperto di macro, non è che qualcuno mi da una mano?

grazie e ciao

[c.spaziani]

La macro è questa:

Codice: Seleziona tutto

Sub PrintTwice
Dim aPrintOpt(0) As New com.sun.star.beans.PropertyValue
	aPrintOpt(0).Name = "CopyCount"
	aPrintOpt(0).Value = 2
	ThisComponent.Print(aPrintOpt())
End Sub

Per aggiungere il bottone sulla barra, visto che è un'operazione una tantum, puoi anche farlo "a mano" senza utilizzare le macro...
Vai su Strumenti -> personalizza... -> barre degli strumenti -> [seleziona la barra] -> Importa... -> (categoria) espandi Macro di Openoffice -> Macro personali -> (Se hai copiato la macro su Module1 della libreria standard) Standard -> Module1 -> PrintTwice -> Aggiungi