|
例えば、以下の様なものです。
実行してみれば、頁ごとに印刷のコードがなければ、全て同じとなってしまう
のが理解できると思います。
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ではプレビューができないし〜、
という方が対象ですのであしからず (^_^;)
|