Sometimes you have to revert to code. This requires a reference to Microsoft Scripting Runtime (1.0).

Here is what this task does...

1. Gives you a file dialog to choose a task file

2. Drops into BASIC code to read through that task file and create another temporary file with the line number appended at the beginning of each line

3. Prints the temporary file to your default printer

4. Deletes the temporary file

This is certainly not perfect, feel free to modify and re-post.



Task Steps: (Right click, Select All, Copy to copy to the clipboard. Steps can then be pasted into the AutoMate Task Builder)
<AMVARIABLE NAME="TaskFilename"></AMVARIABLE> <!--- set LineWrapWidth to whatever your line width is ---> <AMVARIABLE NAME="LineWrapWidth">85</AMVARIABLE> <AMCOMMONDIALOG WINDOWTITLE="Choose AutoMate Task" FILTER="AutoMate Task files (*.aml)|*.aml|All files (*.*)|*.*" RESULTVARIABLE="TaskFilename" DEFAULTFOLDER="C:\Documents and Settings\All Users\Documents\My AutoMate Tasks"> <AMVARIABLE NAME="TempTaskFilename">%TaskFilename%.tmp</AMVARIABLE> <AMSCRIPT>'#Reference {420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINDOWS\System32\scrrun.dll#Microsoft Scripting Runtime Sub Main Const MINT_FOR_APPENDING = 8 Const MINT_FOR_READING = 1 'this next constant account for the spacing for line numbers up 999 (3 digit plus a space); if you have 1,000 or more lines in your task, you're crazy Const MINT_LINENUMBER_SPACING = 4 Dim objFSO As FileSystemObject Dim tsTaskfile As TextStream Dim tsTempTaskfile As TextStream Dim lngLineCount As Long Dim strLine As String Dim strLineCount As String Dim intLinesToWrap As Integer Dim intIndex As Integer Dim intWorkingLineWrapWidth As Integer Dim intIndent As Integer Dim blnNewLine As Boolean Dim blnMetaData As Boolean Dim blnCommentLine As Boolean blnMetaData = True Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;) Set tsTaskfile = objFSO.OpenTextFile(TaskFilename, MINT_FOR_READING, True) Set tsTempTaskfile = objFSO.OpenTextFile(TempTaskFilename, MINT_FOR_APPENDING, True) Do While Not tsTaskfile.AtEndOfStream blnNewLine = False blnCommentLine = False strLine = tsTaskfile.ReadLine If (strLine = &quot;&lt;\STEPS&gt;&quot;) Then blnMetaData = True End If 'detect a comment If ((InStr(strLine,&quot;&lt;!---&quot;) &gt; 0) Or (InStr(strLine, &quot;---&gt;&quot;) &gt; 0)) Then blnCommentLine = True End If 'if we are not reading meta data (not the actual task steps, skip them) If (blnMetaData = False) Then intIndent = Len(strLine) - Len(Trim(strLine)) 'account for the space the line number and any indentation will occupy intWorkingLineWrapWidth = LineWrapWidth - MINT_LINENUMBER_SPACING - intIndent 'check to see if the first character is a &quot;&lt;&quot;; if not, this is a instance of the text 'of a step having a CR/LF in it and we don't want to consider that a new line If (InStr(Trim(strLine), &quot;&lt;&quot;) = 1) And (blnCommentLine = False) Then blnNewLine = True lngLineCount = lngLineCount + 1 strLineCount = Space((MINT_LINENUMBER_SPACING - 1) - Len(CStr(lngLineCount))) & CStr(lngLineCount) End If intLinesToWrap = Len(strLine) \ intWorkingLineWrapWidth For intIndex = 0 To intLinesToWrap If (blnNewLine = True) Then If (blnCommentLine = True) Then tsTempTaskfile.WriteLine (Space(MINT_LINENUMBER_SPACING) & strLine) blnCommentLine = False Else tsTempTaskfile.WriteLine (strLineCount & &quot; &quot; & Space(intIndent) & Left(Trim(strLine), intWorkingLineWrapWidth)) End If blnNewLine = False Else ' break the line into chunks and indent for readability tsTempTaskfile.WriteLine (Space(MINT_LINENUMBER_SPACING + intIndent) & Mid(Trim(strLine), (intWorkingLineWrapWidth * intIndex) + 1, intWorkingLineWrapWidth)) End If Next End If If (strLine = &quot;&lt;STEPS&gt;&quot;) Then blnMetaData = False End If Loop tsTaskfile.Close tsTempTaskfile.Close End Sub </AMSCRIPT> <AMPRINT FILE="%TempTaskFilename%"> <AMPAUSE SCALAR="15"> <AMFILEDELETE SOURCE="%TempTaskFilename%">

-------------------------
Thanks,

Noel Scheaffer

Hi,


The way I like to print the code is to use Techsmith Snagit, which will autoscroll and capture your whole script, ready for printing (colour is nicest).  Works a treat and includes the line numbers.  Also having a printout is great for when you have a lot of nested loops or IF's - you can easily lose track of what relates to what.

Cheers