QX の印刷画面はたしかに印刷部数の指定がないのですが、印刷ダイアログから 「プリンタ設定」に入り、プリンタのプロパティで部数指定することは可能です。
あるいはマクロで必要な回数だけ自動実行します。
'印刷書式選択かつ部数指定直接印刷
proc main if @hwnd = 0 then exit proc dim i, n, sel, format$[14] format$[1] = "・ 印刷書式選択 ・" format$[2] = chr$(1) + "-" for i = 1 to 10 if @@FilePrintFormatName$(i) = "" then format$[i+2] = chr$(1) + cformat$("&%X.", i) \ + " (設定なし)" else format$[i+2] = cformat$("&%X.", i) + " " \ + @@FilePrintFormatName$(i) end if next sel = popupmenu(format$) if sel < 3 and sel > 12 then exit proc n = inputbox("部数を指定してください","印刷部数",1) if n = INPUTBOX_CANCEL then exit proc if n < 1 then exit proc for i = 1 to n @FilePrintOK sel-2 next end proc
他のエディタについては現在は使っていないのでわかりません。 |