Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

73516 / 76732

←次へ　｜　前へ→


	【7691】またやってしまいました・・、訂正

ichinose - 03/9/11(木) 22:20 -


	引用なし

	パスワード

以下を訂正です。

>'=======================================================
>' プリンター名i/oプロシジャーパック
>'=======================================================
>Dim folds
>Dim pr_array() As String
>Dim pr_idx()
>'=======================================================
>Function open_printer() As Boolean
>'プリンター名をpr_arrayに、FolderitemのIDをpr_idx()にセット
>'　 output　open_printer　true 正常終了
>'　　　　　　　　　　　　 false 異常終了
　　On Error Goto err_open_printer
>　　Dim myshell
>　　open_printer = True
>　　Erase pr_array
>　　Erase pr_idx
>　　Set myshell = CreateObject("shell.application")
>　　Set fol = myshell.NameSpace(4)
>　　Set folds = fol.items
>　　idx = 0: jdx = 1
>　　Do While idx <= folds.Count - 1
>　　　 Set fold = folds.Item(idx)
>　　　 If Not fold.Name Like "プリンタ*" Then
>　　　　　ReDim Preserve pr_array(1 To jdx)
>　　　　　pr_array(jdx) = fold.Name
>　　　　　ReDim Preserve pr_idx(1 To jdx)
>　　　　　pr_idx(jdx) = idx
>　　　　　jdx = jdx + 1
>　　　　　End If
>　　　 idx = idx + 1
>　　　 Loop
>ret_open_printer:
>　　Set myshell = Nothing
>　　On Error GoTo 0
>　　Exit Function
>err_open_printer:
>　　MsgBox Error$(Err.Number)
>　　open_printer = False
>　　Resume ret_open_printer
>End Function

0 hits

▼

【7665】通常使うプリンタのチェックのオンオフ kohji 03/9/11(木) 16:04