名前
題名
▼ Mr.XRAYさん > 例えば、以下の様なものです。 > 実行してみれば、頁ごとに印刷のコードがなければ、全て同じとなってしまう > のが理解できると思います。 > > uses Printers; > > procedure TForm1.Button1Click(Sender: TObject); > var > i : Integer; > Start : Integer; > Stop : Integer; > begin > Start:=1; > Stop :=3; > Printer.BeginDoc; > Printer.Canvas.Font.Size:=50; > try > for i:=Start to Stop do begin > if i=Start then Printer.Canvas.TextOut(500,400,'１頁目'); > if i=Start+1 then Printer.Canvas.TextOut(500,800,'２頁目'); > if i=Start+2 then Printer.Canvas.TextOut(500,1200,'３頁目'); > if i=Stop then Printer.Canvas.TextOut(500,1200,'最後の頁'); > if i<>Stop then Printer.NewPage; > end; > finally > Printer.EndDoc; > end; > end; > > これを宮さんのように以下の様にすると、全ての頁に同じものが印刷されてし > まいます。 > > procedure TForm1.Button1Click(Sender: TObject); > var > i : Integer; > Start : Integer; > Stop : Integer; > begin > Start:=1; > Stop :=3; > Printer.BeginDoc; > Printer.Canvas.Font.Size:=50; > try > for i:=Start to Stop do begin > Printer.Canvas.TextOut(500,400,'１頁目'); > if i<>Stop then Printer.NewPage; > end; > finally > Printer.EndDoc; > end; > end; > > TplPrevコンポーネントは、基本的にTPrinterを使用した印刷の方法を理解 > していない方を対象にしていません。TPrinterではプレビューができないし〜、 > という方が対象ですのであしからず (^_^;)
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link