Lo primero que me gustaría decir es gracias de antemano por su colaboración.
Llevo toda la mañana con una macro que he modificado de dos que he absorvido del gran libro de Mauricio y el caso es que funciona bien pero quiero añadirle un detalle.
Me explico:
*Tengo un boton que guarda una copia pdf de las hojas (saca la hoja de un rango de impresion) y abre un cuadro de "Guardar Como" por si se me da el caso que quiera cambiar el lugar de guardado.
El problema es que ahora tengo otra hoja que es igual tiene su propio boton de manera que cuando pulse el boton generar pdf de su hoja deberia exporta a pdf su hoja activa pero desgraciadamente exporta todas las hojas.
El caso es que estoy ya mas que quemado y no me sale la macro.
Quiero tener dos hojas cada una con un boton y que al pulsar dicho boton exporte a pdf solamente la hoja que estoy viendo no todas.
Dejo aqui mi codigo porque seguramente es una chorrada y no lo veo jaja
Código: Seleccionar todo
Sub GenerarPDF
'----------------------------------------------------------------------
Dim document As Object
Dim dispatcher As Object
Dim numFactura As String
Dim CarpetaNombrePDF As String
Dim FechaDelDia As String
Dim HoraDelDia As String
FechaDelDia=Format(date, "dd-mm-yyyy")
HoraDelDia =Format(NOW(), "hh:mm:ss")
document = ThisComponent.CurrentController.Frame
dispatcher = CreateUNOService("com.sun.star.frame.DispatchHelper")
Dim aSaltarA(0) As New com.sun.star.beans.PropertyValue
aSaltarA(0).Name = "A1:G55"
aSaltarA(0).Value = "ImprimirFactura"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, aSaltarA())
aSaltarA(0).Value = "CodCliente"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, aSaltarA())
CarpetaNombrePDF = GuardarComo("/home/javi/Escritorio/FACTURA TALLERES PACO/" & FechaDelDia & " " & HoraDelDia)
If CarpetaNombrePDF > "" Then
Dim args2(1) As New com.sun.star.beans.PropertyValue
args2(0).Name = "URL"
args2(0).Value = CarpetaNombrePDF
args2(1).Name = "FilterName"
args2(1).Value = "calc_pdf_Export"
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args2())
EndIf
End Sub
Function GuardarComo( cNombre As String ) As String
'----------------------------------------------------------------------
Dim oDlgGuardarArchivo As Object
Dim mDlgOpciones()
Dim mArchivo() As String
Dim mOpciones()
oDlgGuardarArchivo = CreateUNOService ("com.sun.star.ui.dialogs.FilePicker")
mDlgOpciones = Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)
With oDlgGuardarArchivo
.Initialize ( mDlgOpciones() )
.AppendFilter( "Documentos PDF (.pdf)", "*.pdf" )
.Title = "Exportar factura en formato PDF"
.SetDefaultName(cNombre)
End With
If oDlgGuardarArchivo.Execute() Then
mArchivo() = oDlgGuardarArchivo.getFiles()
GuardarComo = mArchivo(0)
End If
End Function
¡Exacto!