AdPrint

現在開いている文書を全て印刷する

---

//**************************************************
//AllDocumentPrint
//Copyright by Albatross (Yasutoshi Ito) 1999
//**************************************************
//Version 0.00:99/10/15
//**************************************************
Application (WordPerfect; "WordPerfect"; Default!; "JP")
CDNumber=?DocNumber()
if (CDNumber=0)
    substructureExit()
    CDNumber=?DocNumber()
endif

for(I; 1; I<9; I+1)
    call DocPrin (I)
endfor
switchdoc(DocNum: CDNumber)
quit()

//*************************
//Procedure DocPrin
//*************************
procedure DocPrin(ID)
onerror(AbPr)
    SwitchDoc (DocNum: ID)
//messagebox(x;"Macro Status";"NowPrinting : "+ID)
    Print ()
label(AbPr)
endproc

---

＜＜戻る