'編集中のファイルを連続印刷 / ver. 0.50 / by Kabuneko 2000/10/22

proc main
    if @hwnd = 0 then exit proc
    dim i, 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 or sel > 12 then exit proc
    i = @hwnd
    do while 1
        @FilePrintOK sel-2
        @WindowNext
        if @hwnd = i then
            call msgbox("連続印刷処理 完了しました。")
            exit proc
        end if
    loop
end proc