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ランキング
-
エクセルを開くと、「プリンタ...
-
異なるLANにあるネットワークプ...
-
ローソン、ファミマの Print Sm...
-
ネットワーク内のプリンタ等のI...
-
3~4kmぐらい離れたプリンタへ...
-
Netscreen-50の再起動方法
-
ネットワークプリンターをLP...
-
一台のプリンターを3台のパソ...
-
ipadからAirPrintが見つかりません
-
PX-105 無線ラン接続できない
-
デフォルトゲートウェイとは?...
-
ネットワークプリンタに接続で...
-
エクセルでユーザー定義サイズ...
-
ルーターがないのに有線LANでプ...
-
プリンタの設定(ポートの構成...
-
VB.NETからExcelを開きプリンタ...
-
スーパーウィルスセキュリティZ...
-
Windows システムログ ID:8021...
-
Local Potr と Standard TCP/IP...
-
プロキシサーバ設定について
マンスリーランキングこのカテゴリの人気マンスリー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でプ...
-
デフォルトゲートウェイとは?...
おすすめ情報