PrinterPageNumber (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This example requires a button and a status bar on a form. When you click the button, one line of text is printed on six separate pages. As each page is printed, a message indicating the number of the page being printed appears on the status bar. To run this example successfully, you must add Printers to the uses clause of your unit and set the SimplePanel property of the status bar to True.

Code

uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  StatusBar1.SimplePanel := True; { Doing this, you ensure that SimpleText will work. }
  Printer.BeginDoc;
  for I := 1 to 6 do
  begin
    Printer.Canvas.TextOut(100, 100, 'Object Pascal is great');
    StatusBar1.SimpleText := 'Now printing page ' + IntToStr(Printer.PageNumber);
    Printer.NewPage;
  end;
  Printer.EndDoc;

end;

Uses