Software Archive
Read-only legacy content
Announcements
FPGA community forums and blogs on community.intel.com are migrating to the new Altera Community and are read-only. For urgent support needs during this transition, please visit the FPGA Design Resources page or contact an Altera Authorized Distributor.
17060 Discussions

Printing list of project files...

isn-removed200637
363 Views
I would like to be able to print/store a list of project files as they
appear in the FileView pane of Developer Studio.
Is there a way to do this?

Also, is there a simple way to print out all (or a selection) of the files in the list without having to open every one with the editor and use the Print command on each?
0 Kudos
1 Reply
Intel_C_Intel
Employee
363 Views
Anthony,

I would like to be able to print/store a list of project files as they appear in the FileView pane of Developer Studio. Is there a way to do this? 

I would make a copy of the project file (myfile.dsp) and extract the list from there, perhaps even writing a short program to extract all lines beginning

SOURCE=

between the line

# Begin Group "Source Files"

and the line

# End Group

Also, is there a simple way to print out all (or a selection) of the files in the list without having to open every one with the editor and use the Print command on each?

I haven't found any way to open every file automatically, I just do it and minimize most of them. Then, for printing, I use the following macro:

Sub ColorPrintAll()  
'DESCRIPTION: Executes command 'ColorPrinting' for each open window  
	Dim myW, aWinS  
	For Each myW in Application.Windows  
		myW.Active = True  
		aWinS = myW.WindowState  
		myW.WindowState = dsWindowStateNormal  
		ActiveDocument.Selection.SelectAll  
		ActiveDocument.Selection.Untabify  
		ActiveDocument.Save  
		ExecuteCommand "ColorPrinting"  
		ActiveDocument.Selection.Tabify  
		ActiveDocument.Save  
		ActiveDocument.Selection.StartOfDocument  
		myW.WindowState = aWinS  
' Prior to CVF 6.5, the next line was necessary to keep from crashing.  
'		a = MsgBox ('Click OK to continue',vbOKOnly,ActiveDocument.Name)  
	Next  
End Sub  

I hope this helps.

Dick

0 Kudos
Reply