Illustrator Font List Script

// script.name = fontList.jsx;
// script.description = creates a document and makes a list of all fonts seen by Illustrator;
// script.requirements = none; // runs on CS4 and newer;
// script.parent = CarlosCanto // 02/17/2013;
// script.elegant = false;

#target illustrator

var edgeSpacing = 10;
var columnSpacing = 195;
var docPreset = new DocumentPreset;
docPreset.width = 800;
docPreset.height = 600;
var idoc = documents.addDocument(DocumentColorSpace.CMYK, docPreset);

var x = edgeSpacing;
var yyy = (idoc.height - edgeSpacing);
var fontCount = textFonts.length;
var col = 1;
var ABcount = 1;

for(var i=0; i<fontCount; i++) {
    sFontName = textFonts[i].name;
    var itext = idoc.textFrames.add();
    itext.textRange.characterAttributes.size = 12;
    itext.contents = sFontName;
    //$.writeln(yyy);
    itext.top = yyy;
    itext.left = x;

    itext.textRange.characterAttributes.textFont = textFonts.getByName(textFonts[i].name);

    // check wether the text frame will go off the bottom edge of the document
    if( (yyy-=(itext.height)) <= 20 ) {
        yyy = (idoc.height - edgeSpacing);
        x += columnSpacing;
        col++;
        if (col>4) {
            var ab = idoc.artboards[ABcount-1].artboardRect;
            var abtop = ab[1];
            var ableft = ab[0];
            var abright = ab[2];
            var abbottom = ab[3];

            var ntop = abtop;
            var nleft = abright+edgeSpacing;
            var nbottom = abbottom;
            var nright = abright-ableft+nleft;

            var abRect = [nleft, ntop, nright, nbottom];
            var newAb = idoc.artboards.add(abRect);

            x = nleft+edgeSpacing;
            ABcount++;
            col=1;
       }
    }
    //else yyy-=(itext.height);
}