コリー様、とおりがかり様、レスありがとうございます。 遅くなってすみません、お二人からいただいたアドバイスで検証していました。 とおりがかり様、何度も読み返しては試していたのですが コードがうまく書けずじまいでした。（すみません、もっと勉強します） 検証結果は、コリー様のアドバイスでコードを書き直してみたのですが 結果は前回同様、ﾋﾞｭｰの表示順には印刷ﾌｫｰﾑに出力されませんでした。 ガーン！！です。なぜなのでしょう？ とりあえず、コードのせておきます。 未熟なため突込みどころ満載ですが、お気づきの点ありましたら アドバイスいただけるとうれしいです。 ---以下抜粋--- Set uiview = ws.CurrentView Set view = uiview.View Set vc = view.AllEntries Set db = ss.CurrentDatabase Set dc = db.UnprocessedDocuments Set doc = dc.GetFirstDocument() '選択文書から基本情報値取得 hcode = doc.GetItemValue("Hcode") kcode = doc.GetItemValue("Kcode") cnamefull = doc.GetItemValue("cnamefull") '印刷フォームを新規作成 Set pdoc = New NotesDocument(db) pdoc.Form = "print88" '印刷フォームに基本情報の値をセット Call pdoc.ReplaceItemValue("dspHcode",hcode(0)) Call pdoc.ReplaceItemValue("dspKcode",kcode(0)) Call pdoc.ReplaceItemValue("dspCname",cnamefull(0)) While Not (doc Is Nothing) i = i + 1 Set entry = vc.GetEntry(doc) x = entry.ColumnValues '列取得 Forall y In x dspctanto = x(6) dsplcate = x(7) dspmcate = x(8) dspastatus = x(9) dspadate = x(10) dspbstatus = x(11) dspbdate = x(12) dspcstatus = x(13) dspcdate = x(14) dspdstatus = x(15) dspddate = x(16) Call pdoc.ReplaceItemValue("dspCtanto_"&Cstr(i),dspctanto) Call pdoc.ReplaceItemValue("dspLcate_"&Cstr(i),dsplcate) Call pdoc.ReplaceItemValue("dspMcate_"&Cstr(i),dspmcate) Call pdoc.ReplaceItemValue("dspAstatus_"&Cstr(i),dspastatus) Call pdoc.ReplaceItemValue("dspAdate_"&Cstr(i),dspadate) Call pdoc.ReplaceItemValue("dspBstatus_"&Cstr(i),dspbstatus) Call pdoc.ReplaceItemValue("dspBdate_"&Cstr(i),dspbdate) Call pdoc.ReplaceItemValue("dspCstatus_"&Cstr(i),dspcstatus) Call pdoc.ReplaceItemValue("dspCdate_"&Cstr(i),dspcdate) Call pdoc.ReplaceItemValue("dspDstatus_"&Cstr(i),dspdstatus) Call pdoc.ReplaceItemValue("dspDdate_"&Cstr(i),dspddate) End Forall Set doc = dc.GetNextDocument(doc) Wend '印刷フォームを開く Set uidoc = ws.EditDocument(False,pdoc) コリー様、引用での解説とてもわかりやすかったです。 Forall使ったことなかったので「ｙ」の意味がわからなかったのと 列数が固定なら・・の例は目の前がひらけたようでした。 お二人ともお忙しいところのアドバイスありがとうございます。 後一歩だと思うのでもう少しがんばります！