No confio mucho en el dispatcher, has intentado hacer un While... Do Loop?
On Wed, 23 May 2007 06:07:46 -0500, [EMAIL PROTECTED]
<[EMAIL PROTECTED]> wrote:
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
--
Alexandro Colorado
OpenOffice.org
Community Contact // Mexico
http://www.openoffice.org
Twitter: http://www.twitter.com/jza
Jabber: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
