|
▼ palさん，こんにちは
テストプログラムのStartLabelですね．
印刷の時の印刷頁関係を修正した時にチェックしていなかったようです．
修正します．しばらく時間を下さい．
[1033]のスレッドのAndyさんの質問もバグですのでいっしょに調査します．
マイッタ!!
とりあえず，以下の様に逃げていただけますか．
procedure TForm1.plTackPrev1FormShow(Sender: TObject);
begin
plTackPrev1.PageNumber:=1;
// plTackPrev1.Display(1);
end;
あるいは，
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with plTackPrev1 do begin
PageNumber:=1; //ここに表示開始頁を記述
//印刷開始ラベルを指定
StartRow:=StrToInt(Trim(Edit1.Text));
StartCol:=StrToInt(Trim(Edit2.Text));
//印刷ずれの調整用変数をセット
PrintOffsetX:=StrToInt(Trim(Edit3.Text));
PrintOffsetY:=StrToInt(Trim(Edit4.Text));
Title:='ヒサゴ GB1985の例';
//プレビュー開始
Preview;
end;
end;
|