IF INT_naoLevarCodigo=True THEN // se nao quero Levar Código
TABLE_Tecnico.COL_Id_tecnico..VisibleInExportAndPrint=False //Ele Nao ira levar id tecnico
ELSE // senao
TABLE_Tecnico.COL_Id_tecnico..VisibleInExportAndPrint=Default //Vai Levar
END
//Vou fazer o mesmo para nome e telefone
IF INT_NaoLevarNome=True THEN // se nao quero Levar Nome
TABLE_Tecnico.COL_Nome..VisibleInExportAndPrint=False
ELSE // senao
TABLE_Tecnico.COL_Nome..VisibleInExportAndPrint=Default
END
IF INT_NaoLevarTelefone=True THEN // se nao quero Levar Telefone
TABLE_Tecnico.COL_Telefone..VisibleInExportAndPrint=False
ELSE // senao
TABLE_Tecnico.COL_Telefone..VisibleInExportAndPrint=Default
END
//Imprime
iPreview(ipvZoom100)
TablePrint(TABLE_Tecnico)
//Levar Excel
TableToExcel(TABLE_Tecnico,"d:\amarildo\teste.xls")
ShellExecute("d:\amarildo\teste.xls")
//Gravar Arquivo Texto
_texto is string=TableToText(TABLE_Tecnico,taNoTitle,"|",CR)
fSaveText("d:\amarildo\teste.txt",_texto)
ShellExecute("d:\amarildo\teste.txt")