ひまつぶし様、とおりがかり様、お忙しいところありがとうございます。 遅くなってしまいましたが、アドバイスいただいた検証をしていました。 結果、自分のところではとおりがかり様のようにそのまま上から順番 に取得してくれませんでした。（TT） そこで、添付していただいた他サイトのｻﾝﾌﾟﾙもやってみたのですが 理解不足のためかうまくいきません。 Set uiview = ws.CurrentView Set view = uiview.View Set vc = view.AllEntries Set db = ss.CurrentDatabase Set dc = db.UnprocessedDocuments Set doc = dc.GetFirstDocument() これで選択文書の最初の文書から基本情報だけを取得し、 印刷用ﾌｫｰﾑに値をセットさせてます。 その後、↓のようにしてみたのですが、「x」の値をどうやって 印刷ﾌｫｰﾑのフィールドにｾｯﾄさせたらよいのかわからなくなってしまったのです。 今までだと、docから取得した値をReplaceitemvalueでセット してましたが、そうするとForallの場合はどうすれば？と 行き詰まってしまいました。 While Not (doc Is Nothing) i = i +1 Set entry = vc.GetEntry(doc) x = entry.ColumnValues '列取得 Forall i In x Next Set doc = dc.GetNextDocument(doc) Wend 印刷ﾌｫｰﾑのﾌｨｰﾙﾄﾞは基本情報以外の入荷情報 （品物名・日付・値段など）のところは表にしているので Sdate_1のようにｱﾝﾀﾞｰﾊﾞｰに通し番号をつけてます。 それでFor文で順番にセットさせていたんですが・・・ お時間ありましたらアドバイスいただけるとうれしいです。 よろしくお願いします。