[RESUELTO] Imprimir documento.

Discute sobre la aplicación de hojas de cálculo

[RESUELTO] Imprimir documento.

Notapor luis. » Mié Ago 05, 2009 11:07 am

Hola a todos,

Utilizo una hoja de Calc para imprimir varias hojas, la hoja en mi puesto funciona bien, solo que la utilizamos varios compañeros, desde su puesto cuando acceden a ella, graban los datos pero no pueden imprimir, no da ningun error el codigo corre corecto, pero creo que me falta algo..... :ucrazy:

utilizo este codigo:

Sub ImprimiendoCara1()
Dim oDoc As Object
Dim oHojas As Object
Dim mOpc()
Dim oRangos As Object

oDoc = ThisComponent
oHojas = oDoc.getSheets()
'Creamos el contender para los rangos
oRangos = oDoc.createInstance("com.sun.star.sheet.SheetCellRanges")

'Agregamos la primer celda de cada hoja, puede ser cualquier celda
oRangos.addRangeAddress( oHojas.getByIndex(1).getCellRangeByName("A1").getRangeAddress() ,False )

'Al seleccionar las celdas de diferentes hojas, estamos seleccionando dichas hojas
oDoc.getCurrentController.select( oRangos )

'Enviamos a imprimir
oDoc.print( mOpc() )

'llama a la macro mensaje
call Mensaje



'imprime cara2
oDoc = ThisComponent
oHojas = oDoc.getSheets()
'Creamos el contender para los rangos
oRangos = oDoc.createInstance("com.sun.star.sheet.SheetCellRanges")

'Agregamos la primer celda de cada hoja, puede ser cualquier celda
oRangos.addRangeAddress( oHojas.getByIndex(2).getCellRangeByName("A1").getRangeAddress() ,False )

'Al seleccionar las celdas de diferentes hojas, estamos seleccionando dichas hojas
oDoc.getCurrentController.select( oRangos )

'Enviamos a imprimir
oDoc.print( mOpc() )

End Sub

Sub mensaje
Dim Respuesta As Integer
Respuesta = MsgBox ( "Imprimiendo la primera hoja, cambie la hoja para imprimir la segunda hoja", 6, "OOo Basic" )
End sub


> :arrow: Arreglado= ( los margenes de impresión no estaban definidos desde el servidor.)
OpenOffice 3.0, Xp profesional
luis.
 
Mensajes: 5
Registrado: Lun Ago 03, 2009 4:27 pm

Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: MSN [Bot] y 18 invitados