Boa tarde,
Preciso de uma macro que possa fazer com que consiga exportar planilha para PDF usando o conteúdo de uma célula (C3) como nome do arquivo.
Depois de muito pesquisar cheguei ao código abaixo. tendo em vista que não sei praticamente nada em OOobasic gostaria de saber se não tem nada de errado com ele, tipo com relação a segurança ou se teria forma melhor de fazer isso. Desde já agradesço!
sub MacroPDF
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
Dim oPlan as Object, oCel as Object
Dim sNomeArquivo as String
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oPlan = ThisComponent.Sheets.getByName( "Planilha2" )
oCel = oPlan.getCellRangeByName( "C3" )
rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/Evanio%20Sales/Desktop/Nova/" & oCel.String & ".pdf"
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
end sub