Gerar Excel pelo Progress

Discussão em 'Interfaces' iniciado por Lucimaralye, Janeiro 21, 2009.

  1. Lucimaralye

    Lucimaralye Sem Pontuação

    Olá, :roll:
    Segue alguns comandos para gerar excel com o Progress.

    DEF VAR excelAPP AS COM-HANDLE NO-UNDO. /* Cria uma nova Planilha */

    CREATE "Excel.Application" excelAPPexcelAPP:VISIBLE = FALSE. /* Nao mostra a planilha */

    excelAPP:Workbooks:Add. /* Adiciona uma pasta de trabalho com 3 planilhas */

    excelAPP:ActiveSheet:pageSetup:Orientation = 2. /* Orientacao da impressao: 1 - Portrait, 2 Landscape */

    excelAPP:ActiveSheet:pageSetup:LeftMargin = 1. /* Tamanho da margem esquerda */

    excelAPP:ActiveSheet:pageSetup:RightMargin = 1. /* Tamanho da margem direita */

    excelAPP:ActiveSheet:pageSetup:printTitleRows = "$1:$7". /* Cabecalho a ser impresso em quebras de pagina */

    excelAPP:ActiveSheet:pageSetup:Zoom = FALSE. /* Mostra planilha sem zoom, zoom = 80 mostra com 80% de zoom */

    excelAPP:ActiveSheet:pageSetup:paperSize = 9. /* Define o tamanho do papel para A4 */

    excelAPP:ActiveSheet:pageSetup:RightFooter = "CRK &P/&N".excelAPP:ActiveSheet:pageSetup:FitToPagesTall = 1.excelAPP:ActiveSheet:pageSetup:FitToPagesWide = 1.excelAPP:sheets:ITEM(numero da pasta):DELETE. /*Deleta a pasta passada como parametro*/
    Lucimaralye, Janeiro 21, 2009
    #1
    contatotalitacamargo curtiu isso.

Compartilhe esta Página