YOOGAWAさん、こんにちは。

＞OSの通常使用プリンターを変えないで
＞スクリプトでいろいろなプリンターに出し分ける方法です

過去ログのNo.009918にプリンタ切替のサンプルスクリプトがありますが、
PB5.0以上をターゲットにしていますので、このままではPB4.x上では動作
しません。

レジストリからプリンタ情報を読み出す部分を除き、\"win.ini\"を変更し
て出力先プリンタを切り替える箇所はPB4.0.xでも動作します。
(昔よくやりましたから。)

詳しくは過去ログをよく読んで欲しいのですが、一応サンプルスクリプト
の一部を再掲載します。

????????????????????????????????????????
[ddlbで選択したプリンタを出力先に設定]
//初期設定
Integer	Err,ItemNo
Long    KeyMax,l
String	PrinterName
 
//プリンタ名からプリンタ接続情報を探す
PrinterName = ddlb_printers.Text
ItemNo      = ddlb_printers.FindItem(PrinterName,0)
 
// Win.iniファイルの編集
Err = SetProfileString(\"c:\\windows\\win.ini\",\"Windows\",\"Device\",PrinterName+\",\" &
      +is_Printers[ItemNo])
If Err=-1 Then MessageBox(\"エラー\",\"Win.iniファイル書き込み時にエラーが発生しました\")
 
// WM_WININICHANGEメッセージの送信
Send(65535,26,0,0)
????????????????????????????????????????