nContador is int = 0
sFile is string
sFile = fSelect("", "", "Seleciona Excel", "Excel" + TAB + "*.xlsx", "*.xlsx")
//ou se tiver o nome do arquivo fixo
//sFile = "c:\temp\arquivo_Excel.xls"
n_abre_excel is int = xlsOpen(sFile)
n_numero_linhas is int = xlsNbRow(n_abre_excel)
n_contador is int = 0
sNome_arquivo is string="C:\temp\teste3.pdf"
iDestination(iGenericPDF,sNome_arquivo)
iPrint("Relatorio de Observacao do cliente x")
iPrint("")
FOR n_contador = 2 TO n_numero_linhas
nome is string=xlsData(n_abre_excel,n_contador,1) // primeira coluna
telefone is string=xlsData(n_abre_excel,n_contador,2) //segunda coluna
iPrint(nome+"-"+telefone)
END
iPrint("")
iEndPrinting()
ShellExecute(sNome_arquivo)
