How to print Modules print code

[javiernews via AccessMonster.com]

Can any body help me??
I want to show the code lines in a module like this:


Public Function funLinesOfCode() As Long
Dim dbCur As DAO.Database
Dim doc As DAO.Document

Set dbCur = CurrentDb
' Count lines of code in Modules

For Each doc In dbCur.Containers("Modules").Documents
DoCmd.OpenModule doc.Name
funLinesOfCode = funLinesOfCode + Modules(doc.Name).countOfLines
MsgBox xxxxxxxxxxxx
DoCmd.Close acModule, doc.Name, acSaveNo
Next doc

etc......

Now I only get numer lines but I need to show the code lines in a MsgBox

thank you !

 

[Douglas J. Steele]

MsgBox Modules(doc.Name).Lines(1, n)

will show the first n lines of code in the module.

 

[javiernews via AccessMonster.com]

Thank so much !!

)

Javier