textFilePath = "C:\mach3\LATHE TOOL TABLE\ToolInfo_LATHE.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(textFilePath)
Do Until num=225
num=num+1
N = GetToolDesc(num)
D = GetToolParam(num,1)
L = GetToolParam(num,2)
WD= Gettoolparam(num,3)
WL= Gettoolparam(num,4)
WX= Gettoolparam(num,5)
WZ= Gettoolparam(num,6)
Dt= Date()
Tm= Time()

If N <>"Empty" Then

objTextFile.WriteLine("*Tool"& num &" * "& N &"*TIP RAD "& L &" *X OFFSET "&WD &" *Z OFFSET "&WL &"*XWEAR "& WX &" *ZWEAR "& WZ & Chr(13) & Chr(10))
Else
End If
Loop

objTextFile.WriteLine("**")
objTextFile.WriteLine(" Date: " &Dt &" Time: " &Tm)

objTextFile.Close
Dim sCOMMAND As String
sCOMMAND="print c:\mach3\LATHE TOOL TABLE\ToolInfo_LATHE.txt"
Shell("c:\WINDOWS\system32\cmd.exe /c" & sCOMMAND)
End