No.2ベストアンサー
- 回答日時:
通常使うプリンタの変更でしたら、以下のような感じでできます。
strDeviceName, strDriverName, strPort 等の引数はクライアントPCのPrinterオブジェクトから取得してください。
'------------------------
Private Declare Function GetVersion Lib "kernel32" () As Long
Private Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const HWND_BROADCAST = &HFFFF&
Const WM_WININICHANGE = &H1A
Public Sub psubSetWindowsDefaultPrinter(strDeviceName As String, _
strDriverName As String, strPort As String)
Dim strParam As String
strParam = strDeviceName & "," & strDriverName & "," & strPort
WriteProfileString "windows", "device", strParam
If pfncIsWindowsNT() Then
'Windows NT
SendMessage HWND_BROADCAST, WM_WININICHANGE, 0&, ByVal 0&
Else
'Windows 95
SendMessage HWND_BROADCAST, WM_WININICHANGE, 0&, ByVal "windows"
End If
End Sub
Public Function pfncIsWindowsNT() As Boolean
pfncIsWindowsNT = IIf(GetVersion() And &H80000000, False, True)
End Function
この回答へのお礼
お礼日時:2004/07/27 08:35
printui.dllにて解決いたしました。
上記を試してはいないのですがWin2k以前も
できそうなAPIですのでまたいつか使う日が
きそうですね。どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プリンタをMacとwindowsで共用...
-
EXCELネットワークプリン...
-
エクセルを開くと、「プリンタ...
-
無線LANルーターを替えたらプリ...
-
1台のプリンタを3台のパソコ...
-
エクセルでユーザー定義サイズ...
-
無線LANでのプリンタ共有
-
EPSONネットワークプリンタで印...
-
ローソン、ファミマの Print Sm...
-
デフォルトゲートウェイとは?...
-
一台のプリンターを3台のパソ...
-
プリンターだけ無線LANで使いたい…
-
NASでのプリンタ共有方法
-
ルーターを交換したらプリンタ...
-
このネットワークを使うには手...
-
Apacheに外部から接続できませ...
-
Teraterm で、「シリアル」の方...
-
MACアドレスからIPアドレスを割...
-
VPNが繋がらない(YAMAHA RTX1100)
-
受信パケット0でIPアドレスが取...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを開くと、「プリンタ...
-
異なるLANにあるネットワークプ...
-
ローソン、ファミマの Print Sm...
-
ネットワークプリンタに接続で...
-
Windows システムログ ID:8021...
-
ネットワークプリンタ:プリン...
-
LANケーブルを直接PC接続しても...
-
エクセルでユーザー定義サイズ...
-
デフォルトゲートウェイとは?...
-
VB.NETからExcelを開きプリンタ...
-
ipadからAirPrintが見つかりません
-
外部から会社のプリンタを利用...
-
マックでのプリンターIPアドレ...
-
EXCELネットワークプリン...
-
NASでのプリンタ共有方法
-
VPN中でも自宅のwifiプリンタに
-
VPN経由でLANプリンターに印刷...
-
スプールマネージャーとはどこ...
-
ネットワーク内のプリンタ等のI...
-
Local Potr と Standard TCP/IP...
おすすめ情報