[RESUELTO] Macro para Impresión doble cara Calc
Publicado: Mar Jul 01, 2014 10:51 am
Buenas,
tengo una hoja de cálculo y he hecho una macro para imprimir unos rangos en concreto.
Pero necesito que me imprima a doble cara y no consigo "encontrar" la propiedad para cambiar las preferencias de impresión.
Agradecería ayuda.
Gracias.
tengo una hoja de cálculo y he hecho una macro para imprimir unos rangos en concreto.
Pero necesito que me imprima a doble cara y no consigo "encontrar" la propiedad para cambiar las preferencias de impresión.
Agradecería ayuda.
Gracias.
Código: Seleccionar todo
Sub Imprimir
Dim mDI(2) As New com.sun.star.beans.PropertyValue
Dim mOpc(2) As New com.sun.star.beans.PropertyValue
'Mostramos el nombre de la impresora activa
'mDI = ThisComponent.getPrinter()
'MsgBox (mDI(0).Value)
'==================================IMPRESIÓN EN PAPEL========================
'Cambiamos la impresora para imprimir
mDI(0).Name = "Name"
mDI(0).Value = "Dell 2335dn MFP"
'Cambiamos la orientación 0 = Vertical, 1 = Horizontal
'mDI(1).Name = "PaperOrientation"
'mDI(1).Value = 1
'Establecemos las opciones de la impresora
ThisComponent.setPrinter( mDI )
'El número de copias
mOpc(0).Name = "CopyCount"
mOpc(0).Value = 1
'Las páginas a imprimir
mOpc(2).Name = "Pages"
mOpc(2).Value = "1-2"
'Enviamos a imprimir
ThisComponent.Print( mOpc() )
End Sub