Access VBA質問箱 IV

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

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


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

3126 / 9994

←次へ　｜　前へ→


	【10130】Re:プリンタの設定について教えてください

VBWASURETA - 08/1/10(木) 13:36 -


	引用なし

	パスワード

▼たけさん：
こんにちは。

>>www.microsoft.com/japan/msdn/office/officeXP/odc_acc10_printers.aspx#odc_acc10_printers_introduction
>上記のＨＰを見ています。

見ているということですが、そこのＨＰに記載されているサンプルのことを
おっしゃってますか？

それではなく、そこから英語HPに飛んで、以下のURLのサンプルＭＤＢ
（圧縮のため解凍ソフト必要）をダウンロードしてください。
そのＭＤＢが思った通りの動きをしているなら、参照設定等合っているかや
ソースを見てやってみてくださいということです。

//download.microsoft.com/download/a/1/f/a1fc6936-b5cb-462b-b302-76efe9c8d9cf/odc_acc10_printers.exe

>レジストリって何ですか。
>もうひとつのレスのみたのですが・・

まず、レジストリはWindowsユーザならわかると思います＾＾；；
で、そこのレスではなく以下のサンプルが書いてあったと思います。
その部分のことです。

'このサンプルは少し手を加えてます。
Sub main()
　　Set WshNet = CreateObject("Wscript.Network")

　　With WshNet.EnumPrinterConnections
　　　　For i = 0 To .Count - 1 Step 2
　　　　　　If (MsgBox("[" & .Item(i + 1) & "]このプリンタに設定しますか？", vbYesNo) = vbYes) Then
　　　　　　　　'ここで通常使うプリンタとして設定する。
　　　　　　　　WshNet.SetDefaultPrinter .Item(i + 1)　 '.Item(i + 1) はインストールされているプリンタ名の配列
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　End With

End Sub

934 hits

▼

【10126】プリンタの設定について教えてください たけ 08/1/9(水) 16:17