Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Macro para exporta em PDF no Calc

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 ?

Macro para exporta em PDF no Calc

Olá, em uma planilha (ex: plan3) contendo dados com mais de uma página,quando uso a seguinte macro: 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 ?