Olá, pessoal!
Pesquisei, digitando PDF na busca aqui e não obtive o resultado esperado.
Encontrei na internet a macro abaixo que funciona para exportar ou salvar como PDF planilha/conteúdo no Calc:
Sub ExportToPDF()
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
' change the path below as per your needs
path ="file:///home/arindam/sheet1.pdf"
Open path For Append As #1
Close #1
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///home/arindam/sheet1.pdf" ' change the path below as per your needs
dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
End Sub
FONTES: Export or Save As PDF in LibreOffice Calc Sheets using Macro E
Export or Save As PDF A Specific Range in LibreOffice Calc Sheets using Macro
Mas não estou conseguindo adaptar o comando correspondente para salvar uma planilha naquele formato na pasta “Documents”, do sistema Windows.
Se possível, gostaria também de acrescentar um comando na macro para abrir o mesmo arquivo salvo em PDF.
Segue uma planilha-modelo: Macro para pdf
Grato pela atenção!
Orlando Souza