| ひろしさんこんにちは
> 一括処理の途中で、プリンターを選ぶ所で止めることができるでしょうか？
選びたい一括の中で下記のようにしてはいかがでしょうか？
変数宣言 文字列 { &printer },整数{ &終了 }
手続き実行 プリンタ選択(&printer)
if ( &printer <> #U )
プリンタ &printer , 終了状態 = &終了
else
確認 "プリンタが指定されませんでした。"
end
proc プリンタ選択(参照 /* refer */ 文字列 /* Str */ &プリンター名)
var 文字列 /* Str */{&ﾍｯﾀ,&ﾌｯﾀ},長整数 /* Long */{&終了,&桁,&プリンタ番号}
&ﾍｯﾀ="使用プリンタを選択",&ﾌｯﾀ="↑↓中止はEsc"
&プリンタ番号=#ウインドウズプリンタ数
&実行リターン=&プリンタ番号
var Str{ &prtname[&プリンタ番号] , &priter } , Long { &line , &keta }
繰り返し &終了=1,&プリンタ番号
&prtname[&終了]=#ウインドウズプリンタ名(&終了)
&priter = &priter + "," + &prtname[&終了]
cond(#桁数(&prtname[&終了]) > &桁 ) &桁 = #桁数(&prtname[&終了])
繰り返し終了
&終了 = #切り上げ(&プリンタ番号/2,0) , &line = #cond(&プリンタ番号<10,7,1,3)
&keta = #cond ( &桁<30 , 15 , 1 , 10 ) , &priter = #sstr( &priter , 2 )
メニュー３ &終了 , &終了 , ( &line , &keta ) , &ﾍｯﾀ \
, &priter , &ﾌｯﾀ , 行数 = &プリンタ番号 , 桁数 = &桁
if (&終了>0)
&プリンター名 = &prtname[&終了]
else
&プリンター名 = #U
end
/* プリンタが選択できるのは表の一覧表印刷あるいはレポートの*/
/* ファイル属性でプリンタ名に桐の現在プリンタを選んでいる場合*/
/* のみこの手続きでプリンタを切替できる、なのでプリンタを選ば*/
/* ないで固定の方はこの手続きは実行しない方が処理が速くなる当*/
/* 然プリンタ名はレポートの定義画面で選択しておいた方が間違い*/
/* ないと思う。*/
/* レポート印刷でプレビューするの場合上記の切り替えは無効になる */
/* レポート印刷で会話 = する を指定するとプレビューできなくなる */
/* レポート印刷で会話 = しない を指定するとダイアログが出ないで印刷する */
end
|
