M.Mさん、こんにちは。

　その後の状況です。

　M.Mさんのアドバイスがヒントになり、データウインドウに１文字分のテキ
ストを縦に並べて、データベースカラムの文字を上から１文字ずつ取得しては
りつけるようにしました。（姑息な手段ですが・・・）

 t_1のテキスト計算式:If(LenW(顧客マスタ_顧客名) > 0,MidW( 顧客マスタ_顧客名 ,1,1),\"\")
 t_2のテキスト計算式:If(LenW(顧客マスタ_顧客名) > 1,MidW( 顧客マスタ_顧客名 ,2,1),\"\")
        ・
        ・
        ・

　スクリプトにすると、改造が大きいのと、レスポンスの問題がありそうだっ
たので強引ですがこの方法でめでたくWIN2000でもラベルが出せるようになり
ました。

　M.Mさんありがとうございました。

　ところで、これってWINかPBの不具合なんですかねぇ？

＞kawa_nさん、こんばんは。
＞
＞＞　顧客のラベル（縦書き）を作る為、データウインドウにデータベース
＞＞カラムをつくってＤＢの顧客名（漢字項目）を設定し、縦に伸ばして縦
＞＞書きになるように幅、高さを調整。
＞＞
＞＞　WIN98環境で実行したところ、縦書き表示される。
＞＞　が、WIN2000環境で実行した場合、「佐々木」という名前について、
＞＞「佐木」と表示されてしまう。
＞＞　（カラム幅を少し広げてみると、「々」が改行されずに「佐」の横に
＞＞　　ありました。）
＞
＞縦書き表示ということは、１文字づつ改行を入れたいわけですよね。
＞未実験君ですが、１文字毎に改行コード(PBの場合「~r~n」)をセットしてみてはどうでしょうか。
＞
＞例：dw_1のカラム\"氏名\"に、文字列\"佐々木\"(ただし１文字毎に改行)を表示させる
＞dw_1.setItemString(rowNo, \"氏名\", \"佐~r~n々~r~n木~r~n\")
＞
＞
＞