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 p gina */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*/ /* Inserindo figuras no excel */excelAPP:Range("A1"):SELECT.excelAPP:ActiveSheet:Pictures:Insert("C:\temp\imagem.bmp").excelAPP:ActiveSheet:Pictures("Picture 1"):Select. /* Seleciona a figura */excelAPP:Selection:ShapeRange:LEFT = 80.5. /* Posiciona na horizontal em 80.5 */excelAPP:Selection:ShapeRange:TOP = 200.5. /* Posiciona na vertical em 200.5 */excelAPP:Selection:ShapeRange:Width = 115.75. /* Define 115.75 (pixel) de altura, 1 pixel = 0,04 cm */excelAPP:Selection:ShapeRange:Height = 33. /* Define 33 (pixel) de largura */excelAPP:SELECTION:ShapeRange:LockAspectRatio = False. /* Desativa opcao proporcional */excelAPP:VISIBLE = TRUE. /* Torna a planilha visivel */excelAPP:ActiveWindow:CLOSE(NO). /* Fecha a janela */RELEASE OBJECT excelAPP. define var ch-Word as component-handle no-undo.define var ch-Documento as component-handle no-undo.define var ch-FormField as component-handle no-undo.define var ch-Range as component-handle no-undo.Create "Word.Application" ch-Word. ch-Word:ScreenUpdating = yes.ch-Word:WindowState = 1.ch-Word:Visible = yes.ch-Word:System:Cursor = 0.ch-Documento = ch-Word:Documents:Add("c:\temp\pro_word.doc").ch-word:Selection:Font:Bold = true.ch-word:Selection:TypeText(" http://progressetecnologia.blogspot.com/index.html "). ch-word:Selection:Font:Bold = false. ch-word:Selection:TypeText(" Progress na Web!!!"). ch-Word:System:Cursor = 1. release object ch-Documento.release object ch-Word. Obs: O arquivo pro_word.doc ja deve existir no diretorio, o programa ira abri-lo e preencher conforme os comandos. Quem precisar mostrar numeros em formato americano, deve utilizar o seguinte comando:SESSION:NUMERIC-FORMAT = "AMERICAN".Com este comando, os numeros aparecerao como o exemplo: 5,999.00 Tivemos varios problemas de acentuacao quando damos um comando "disp" para um arquivo texto. Neste caso, estamos usando o comando CONVERT TARGET 'iso8859-1'.Exemplo:Define stream s-saida.OUTPUT STREAM s-saida TO c:\teste.txt CONVERT TARGET 'iso8859-1'. excelAPP:Range("A1"):VALUE = "Teste". /* Adiciona a palavra TESTE ... celula A1 */excelAPP:Range("A1"):Font:NAME = "Courier New". /* Aplica a fonte */excelAPP:Range("A1"):Font:SIZE = 20. /* Aplica o tamanho 20 de fonte */excelAPP:Range("A1"):Font:bold = TRUE. /* Aplica Negrito */chExcelApplication:Range("C5"):SELECT.chExcelApplication:ActiveCell:Characters(1,3):FONT:bold = YES. /*Aplica Negrito parcialmente*/excelAPP:Range("A1"):Font:italic = TRUE. /* Aplica Italico */excelAPP:Range("A1"):ColorIndex = 15. /* Modifica cor interior da celula */excelAPP:Range("A1"):PageBreak = 1. /* Insere quebra de pagina */excelAPP:Range("A1"):NumberFormat = "dd/mm/aaaa". /* Aplica formatacao de data */excelAPP:Range("A1"):NumberFormat = "#.##0,00". /* Aplica formatacao numerica */excelAPP:Range("A1"):HorizontalAlignment = 1. /* Alinha o campo: Se for 1 alinha para a direita. Se for 2 alinha para a esquerdaSe for 3 alinha para o centro. */excelAPP:Range("A1:B1"):MergeCells = 1. /*Mescla as celulas A1 e B1 */excelAPP:Range("A1"):Borders(01):LineStyle = 1.excelAPP:Range("A1"):Borders(01):Weight = -4138. /*Onde est o "01" onde o contorno da celula ser aplicado.01 - Esquerdo02 - Direito03 - Emcima04 - Embaixo05 - Diagonal Direita06 - Diagonal Esquerda */excelAPP:Range("A1"):ColumnWidth = 13.15. /* Redimenciona o tamanho da coluna */excelAPP:Range("A:Z"):AutoFit. /* Redimenciona automaticamente todas as colunas de A ... Z */ Forma de descobrir qual o dia da semana de uma data.define variable dia as character no-undo.assign dia = "Domingo;Segunda;Terca;Quarta;Quinta;Sexta;Sabado".message "Hoje e" entry(weekday(today), dia, ";")