'L_PrintV.mac / 印刷プレビュー直行 / by Kabuneko 99/08/03

proc main
    if @hwnd = 0 then exit proc
    dim i, sel, format$[12]
    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 2 < sel and sel < 13 then @FilePrintPreview sel-2
end proc