printing to a text file

[Becky]

hi to all

Here's a snippet from some of Allen Browne's code.

For Each ctl In frm
For Each prp In ctl.Properties
strOut = strFormName & "." & ctl.Name & "." & prp.Name & ": "
strOut = strOut & prp.Type & vbTab
strOut = strOut & prp.Value
Debug.Print strOut
Next
If ctl.ControlType = acTextBox Then Stop
Next

Instead of printing the output to the immediate window, how do I print it to
a Notepad text file?

Thank you
Becky

 

[Douglas J. Steele]

Dim intFile As Integer
Dim strFile As String

strFile = "C:\Folder\File.txt"
intFile = FreeFile()
Open strFile For Output As #intFile
For Each ctl In frm
For Each prp In ctl.Properties
strOut = strFormName & "." & ctl.Name & "." & prp.Name & ": "
strOut = strOut & prp.Type & vbTab
strOut = strOut & prp.Value
Print #intFile, strOut
Next
If ctl.ControlType = acTextBox Then
Close #intFile
Stop
End If
Next
Close #intFile

 

[Becky]

Yes! thanks very much Douglas.
Becky

Dim intFile As Integer
Dim strFile As String

strFile = "C:\Folder\File.txt"
intFile = FreeFile()
Open strFile For Output As #intFile
For Each ctl In frm
For Each prp In ctl.Properties
strOut = strFormName & "." & ctl.Name & "." & prp.Name & ": "
strOut = strOut & prp.Type & vbTab
strOut = strOut & prp.Value
Print #intFile, strOut
Next
If ctl.ControlType = acTextBox Then
Close #intFile
Stop
End If
Next
Close #intFile