Macro para exporta em PDF no Calc

perguntadas 2019-02-20 16:13:39 +0200

imagem do gravatar de Ronaldo Elias

updated 2019-02-20 16:15:52 +0200

Olá, em uma planilha (ex: plan3) contendo dados com mais de uma página,quando uso a seguinte macro:

Function ExportarPDF()
            Dim Args(1) as New com.sun.star.beans.PropertyValue
            Dim pFiltro(0) as New com.sun.star.beans.PropertyValue
            pFiltro(0).Name     = "PageRange"
            pFiltro(0).Value    = "3" '(Plan3)
            Args(0).Name        = "FilterName"
            Args(0).Value       = "calc_pdf_Export"
            Args(1).Name        = "FilterData"
            Args(1).Value       = pFiltro
            sDiretorio      = "C:\Users\" & User & "\Documents\Relatório.pdf"
            sUrlUsuario         = convertToURL(sDiretorio)
            ThisComponent.StoreToURL(sUrlUsuario, Args)
End Function

ela só exportar a primeira página da planilha Plan3, sendo que existe mais de uma. Como exportar, somente, todas páginas da planilha Plan3 sem fazer uso do filtro 1-2 ou 1;2 ?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários