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:54 発信者：M.M
題名：RE(5):PB6.5: 任意でプリンタの指定をするには？(サンプル2-1)
こちらは、デフォルトのプリンタを切り替えるプログラムです。
【リストボックス\'lb_printers\' で選択したプリンタを、デフォルトのプリンタに設定する】
//初期設定
integer err
long keyMax,l
string printerName, printerProperty
//OS別に処理を分岐する
choose case sle_os_name.text
//Windows 95/98の場合
case \"Windows 95/98\"
//プリンタ名からプリンタ接続情報を探す
printerName = lb_printers.selectedItem()
//\"Win.ini\"ファイルの編集
printerProperty = profileString(\"win.ini\", \"Devices\", printerName, \"\")
err = setProfileString(\"c:\\windows\\win.ini\",\"Windows\",\"Device\", &
printerName+\",\" +printerProperty)
if err=-1 then
messageBox(\"エラー\",\"Win.iniファイル書き込み時にエラーが発生しました\")
return
else
messageBox(\"\",\"プリンタを変更しました。\")
end if
// WM_WININICHANGEメッセージの送信
send(65535,26,0,0)
(サンプル2-2に続く)
付加情報：
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.