Verbs

構文
引数
戻値

プログラム実行例

デフォルトプリンターを取得

CONST ssfPRINTERS = 4 DIM Shell = CREATEOLEOBJ("Shell.Application") DIM Folder = Shell.NameSpace(ssfPRINTERS) DIM FolderItems = Folder.Items HASHTBL iColumn FOR n = 0 TO 350 iColumn[Folder.GetDetailsOf(EMPTYPARAM, n)] = n NEXT FOR n = 0 TO FolderItems.Count - 1 DIM FolderItem = FolderItems.Item(n) DIM PrinterName = Folder.GetDetailsOf(FolderItem, iColumn["名前"]) FOR i = 0 TO FolderItem.Verbs.Count - 1 IF POS("通常使うプリンターに設定", FolderItem.Verbs.Item(i).Name) <> 0 THEN CONTINUE 2 NEXT PRINT PrinterName BREAK NEXT
結果
Brother DCP-J963N Printer