|
▼ Mr.XRAYさん
こんにちは、yumapaです。
> いえそんなことはありません．というより，空の項目を作成できるの
> が特徴となっています．yumapaさんとどこが違うのでしょう．う〜む．
おっしゃる通りです。大変失礼致しましたm(_ _)m
以下のようにして対応出来ました。
--------------------------------------------------
-----------------
0-Query1.〒
1-
2-
3-Query1.氏名
4-Query1.担当
というように、カラム1＆2は
Queryを参照しない空のカラムにしておき、
--------------------------------------------------
-----------------
OnBeforePageDrawイベントの中で
var s,s1,s2:string;
begin
s:=Query1.FieldByName('住所').AsString;
if Length(s) < 31 then
begin
plTackPrint1.Columns[1].Text:=s;
plTackPrint1.Columns[2].Text:=''; //空に戻す
end
else
begin
s1:=Copy(s,1,30);
s2:=Copy(s,31,Length(s)-30);
plTackPrint1.Columns[1].Text:=s1;
plTackPrint1.Columns[2].Text:=s2;
end;
end;
--------------------------------------------------
-----------------
としてやることでOKでした。
私の勘違いから、色々ご迷惑をお掛けし誠に申し訳ありませんでした。
また、いつもの如く迅速かつ丁寧なご指導に感謝しております。
ありがとうございましたm(_ _)m
|