ProjectHardcopyPrintout

Single-line spaced hardcopy of your RB project code, can be obtained by using the Print Preview/Print options of your browser.

code format="vb" ' folderBrowser-fileSelector cssid #lbStyle1, "{width:300px;background-color:#FEFECD}" fontSize$="10pt" [start] cls html "" print "Set font size for printout ..." radiogroup #rg1, "10pt,12pt,14pt", fontSize$ html "" print:print print "RB Folder browser" files #rbdir, ProjectsRoot$+"\*" nFolders=#rbdir rowcount dim folderList$(nFolders) for x = 1 to nFolders if #rbdir isdir then dir$ = #rbdir name$ if #rbdir hasanswerthen folderList$(x)=dir$ end if end if next x listbox #lb, folderList$,10 print:print link #sel, "[List files]",[select]
 * 1) rg1 horizontal(1)
 * 1) rbdir nextfile$
 * 1) lb setid("lbStyle1")

wait

[select] fontSize$=#rg1 selection$ folderName$=#lb selection$ files #f,ProjectsRoot$+"\"+folderName$+"\*" nFiles=#f rowcount dim fileList$(nFiles) for x = 1 to nFiles if #f isdir then zz=0 'do nothing else fil$ = #f name$ if #f hasanswerthen 'print fil$ fileList$(x)=fil$ end if end if next x
 * 1) f nextfile$

cls listbox #lb, fileList$,10 print:print link #L1, "[Another]", [start] link #L2, "[Accept selection]", [accept] wait
 * 1) lb setid("lbStyle1")

[accept] fName$=#lb selection$ if fName$<>"" then cls open folderName$+"\"+fName$ for input as #fi pf$=input$(#fi, lof(#fi)) close #fi titlebar "Preview of project: "; fName$ html "" print pf$ html " " print:print link #L1, "[Another]", [start] end if wait

code