XYplorer Beta Club

Code: Select all

text catalogreport("{Caption}","- {Caption}: {Location}");

Code: Select all

help "idh_scripting_comref.htm#idh_sc_catalogreport";

Code: Select all

    $report = catalogreport("Category: {Caption}", "  {Caption}, {Location}");
    if ($report) {
        $printers = runret("wmic path win32_printer get name /format:list");
        $printers = replace(regexmatches($printers, "Name=.*?$", "|"), "Name=");
        $printer  = quote(popupmenu($printers, -1, -1, , , 0, "|"));
        if ($printer) {
            setting "BackgroundFileOps", 0;
            $file = "%TEMP%\~report.txt";
            writefile($file, $report);
            run "rundll32.exe %SYSTEMROOT%\System32\shimgvw.dll,ImageView_PrintTo /pt ""$file"" $printer", "<curpath>", 0, 0;
            delete 0, 0, $file;
        }
    }