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にあるネットワークプ...
-
2台のプリンタ共有は?
-
ネットワークプリンタ:プリン...
-
ネットワークの構築?(初心者で...
-
フォルダの共有はできるのに、...
-
エクセルでユーザー定義サイズ...
-
ipadからAirPrintが見つかりません
-
ワードの用紙設定でA3が選択...
-
外部から会社のプリンタを利用...
-
WinSockを使ってのプリンタ接続...
-
LAN接続のプリンタ
-
スプールマネージャーとはどこ...
-
スーパーウィルスセキュリティZ...
-
LAN上のPCが見えない
-
VPN経由でLANプリンターに印刷...
-
LANケーブルを直接PC接続しても...
-
AirMac ExpressでWinからワイヤ...
-
富士通プリンタ XL-5510 のLAN設定
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローソン、ファミマの Print Sm...
-
エクセルを開くと、「プリンタ...
-
異なるLANにあるネットワークプ...
-
ipadからAirPrintが見つかりません
-
LANケーブルを直接PC接続しても...
-
Windows システムログ ID:8021...
-
ネットワークプリンタ:プリン...
-
NASでのプリンタ共有方法
-
引越ししてドコモのホームWi-Fi...
-
VPN経由でLANプリンターに印刷...
-
ネットワークプリンタに接続で...
-
エクセルでユーザー定義サイズ...
-
PC1台でプリンターを2個使う...
-
プリンタの用紙排出トレイの選...
-
Local Potr と Standard TCP/IP...
-
ネットワーク内のプリンタ等のI...
-
デフォルトゲートウェイとは?...
-
VB.NETからExcelを開きプリンタ...
-
ネットワークプリンターをLP...
-
「ネットワーク上にプリンタが...
おすすめ情報