Estimada comunidad:
Quiero que un documento se imprima pero según que hojas de manera distinta.
Ejemplo:
Tengo un documento de 2 hojas y quiero que se impriman 5 copias de la primera y
3 copias de la segunda.
El problema es que sólo saca 1 copia de la página 1 y 2. Y se para como si
hubiese terminado.
Gracias.
El código (sacado con el grabador de macros) es el siguiente:
sub ImprimirCIyAnexoUsuario
'define variables
dim document as object
dim dispatcher as object
'Accedo al documento actual
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
'Creo matriz para impresión con el número de copias y rango de páginas
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Copies"
args1(0).Value = 5
args1(1).Name = "RangeText"
args1(1).Value = "1"
args1(2).Name = "Collate"
args1(2).Value = false
'Imprimir con la matriz para parámetros al interfaz
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args1())
'Lo mismo pero para la página segunda
args1(0).Name = "Copies"
args1(0).Value = 3
args1(1).Name = "RangeText"
args1(1).Value = "2"
args1(2).Name = "Collate"
args1(2).Value = false
dispatcher.executeDispatch(document, ".uno:Print", "", 0, args1())
end sub
