PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 14835 | 01/03/22 08:58:02 | RE(7):PB6.5: ありがとうございます By aqua |
| 14831 | 01/03/21 16:56:51 | RE(6):PB6.5: 任意でプリンタの指定をするには？(サンプル2-2) By M.M |
| 14830 | 01/03/21 16:54:17 | RE(5):PB6.5: 任意でプリンタの指定をするには？(サンプル2-1) By M.M |
| 14829 | 01/03/21 16:47:12 | RE(4):PB6.5: 任意でプリンタの指定をするには？(サンプル1-2) By M.M |
| 14828 | 01/03/21 16:46:43 | RE(3):PB6.5: 任意でプリンタの指定をするには？(サンプル1-1) By M.M |
| 14827 | 01/03/21 15:40:17 | RE(2):PB6.5: 任意でプリンタの指定をするには？ By aqua |
| 14826 | 01/03/19 18:58:27 | RE(1):PB6.5: 任意でプリンタの指定をするには？ By Taka |
| 14824 | 01/03/19 12:00:50 | PB6.5: 任意でプリンタの指定をするには？ By aqua |
カテゴリ：印刷処理
日付：2001年03月21日 16:56 発信者：M.M
題名：RE(6):PB6.5: 任意でプリンタの指定をするには？(サンプル2-2)
サンプル2-1の続きです。
//Windows NTの場合
case \"Windows NT\"
//選択したプリンタ名を取得
printerName = lb_printers.selectedItem()
//レジストリから各プリンタの接続情報を取得
err = registryGet(\"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\\" + &
\"CurrentVersion\\Devices\", printerName, printerProperty)
if err=-1 then
messageBox(\"エラー\",\"レジストリ値の取得に失敗しました｡\")
return
end if
//レジストリを編集し、出力先のプリンタを変更する
err = RegistrySet(\"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\\" + &
\"CurrentVersion\\Windows\", \"Device\", &
printerName+\",\"+printerProperty)
if err=-1 then
messageBox(\"エラー\",\"レジストリ値の変更に失敗しました｡\")
else
messageBox(\"\",\"プリンタを変更しました。\")
end if
//エラー処理
case else
messageBox(\"エラー\",\"変数\'sle_os_name.text\' に予期しない値 \'\" + &
sle_os_name.text+ \"\'が格納されていました\")
return
end choose
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows NT 4.0
DBMS Oracle SQL*Net 8
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.