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で質問しましょう!
似たような質問が見つかりました
- Windows 10 リモートデスクトップ接続 1 2022/07/12 14:30
- 固定IP Win11 アダプター設定変更にイーサネットが表示されない 1 2022/12/03 18:31
- Excel(エクセル) Excel 条件付き書式について 1 2022/12/14 20:38
- その他(ブログ) Brogger独自ドメインから独自ドメインへ変更する 1 2022/09/22 13:21
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/09 14:54
- Windows 10 windowsの起動パスワードについて 1 2022/08/15 10:19
- セキュリティホール・脆弱性 テレワークで会社支給パソコン以外でVPN接続を制限するやり方 教えて下さい 3 2022/08/31 12:40
- その他(Microsoft Office) Office(Windows版,Word/Excel/PowerPoint等)にログインできません 4 2022/07/24 15:18
- USBメモリー・SDカード・フラッシュメモリー プリンタのドライバーをUSB Flash Diskに保存したい。 4 2023/05/23 23:30
- その他(ブラウザ) 新たなPCを入れた場合のブラウザーの諸設定の引継ぎについて。 4 2022/05/29 16:05
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローソン、ファミマの Print Sm...
-
エクセルを開くと、「プリンタ...
-
LANケーブルを直接PC接続しても...
-
異なるLANにあるネットワークプ...
-
Windows システムログ ID:8021...
-
WinSockを使ってのプリンタ接続...
-
プリンタサーバ使用→HUBを経由...
-
Netscreen-50の再起動方法
-
ipadからAirPrintが見つかりません
-
「ネットワーク上にプリンタが...
-
会社のネットワークプリンター...
-
Local Potr と Standard TCP/IP...
-
エプソン製レーザープリンタの...
-
エクセルでユーザー定義サイズ...
-
IPアドレスが書き変わる。
-
VPN接続先にある無線LAN...
-
ネットワークプリンタ入替にお...
-
プリンタポートの選び方がわか...
-
NASでのプリンタ共有方法
-
モデムで2つのPCをつなぐ。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを開くと、「プリンタ...
-
引越ししてドコモのホームWi-Fi...
-
ローソン、ファミマの Print Sm...
-
LANケーブルを直接PC接続しても...
-
異なるLANにあるネットワークプ...
-
ネットワークプリンタ:プリン...
-
エクセルでユーザー定義サイズ...
-
ipadからAirPrintが見つかりません
-
ネットワークプリンタに接続で...
-
Windows システムログ ID:8021...
-
IPで違うネットワークアドレス...
-
VPN経由でLANプリンターに印刷...
-
NASでのプリンタ共有方法
-
VB.NETからExcelを開きプリンタ...
-
「ネットワーク上にプリンタが...
-
外部から会社のプリンタを利用...
-
VPNとプリンタの設定で
-
PC1台でプリンターを2個使う...
-
ルーターがないのに有線LANでプ...
-
デフォルトゲートウェイとは?...
おすすめ情報