名前
題名
▼ palさん > ▼ Mr.XRAYさん > ご指摘のように対処しました、ＯＫです。 > > > とりあえず，以下の様に逃げていただけますか． > > > > 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;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link