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 質問
【7679】Re:通常使うプリンタのチェックのオンオフ INA 03/9/11(木) 17:23 回答
【7680】Re:通常使うプリンタのチェックのオンオフ つん 03/9/11(木) 17:30 発言
【7684】Re:通常使うプリンタのチェックのオンオフ kohji 03/9/11(木) 18:49 質問
【7687】Re:通常使うプリンタのチェックのオンオフ INA 03/9/11(木) 20:11 回答
【7689】Re:通常使うプリンタのチェックのオンオフ ichinose 03/9/11(木) 21:22 回答
【7691】またやってしまいました・・、訂正 ichinose 03/9/11(木) 22:20 発言

73516 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free