あるビューから文書を選択しそれを印刷しています。1個選択したらそれが1ページ印刷されます。それを複数件選択し印刷した場合、印刷結果がビューで表示している順序とかわります。これをビューと同じ順序で出力する方法はありますか?教えてください。 以下のようなスクリプトを作成して印刷しています。 宜しくお願いします。 Sub Click(Source As Button) Set dbsCurr = ses.CurrentDatabase Set doc_c = dbsCurr.unprocesseddocuments '*** 文書選択 *** Set view = dbsCurr.getview("ビュー名") Set udc = wks.CurrentDocument Set docCurr = doc_c.getfirstdocument Set P_udoc = wks.composedocument("","","印刷用フォーム") Dim p_doc As notesdocument Set p_doc = p_udoc.document Do Until docCurr Is Nothing p_doc.p_a = docCurr.a '印刷用フィールドに転記 p_doc.p_b = docCurr.b '印刷用フィールドに転記 Call P_udoc.print(0) P_doc.SaveOptions = "0" Call P_udoc.close Set docCurr = doc_c.getnextdocument(docCurr) Loop End Sub