Gerar Pdf

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)