Class TWPSuperPrint

Hierarchy

System.TObject | System.Classes.TPersistent | System.Classes.TComponent | TWPSuperPrint

Description

Component to print multiple pages on one (virtual) paper sheet. It does not use actual code to do the printing so you need to add some code to call the 'Paint' procedure:
procedure TForm1.PrintIt(Sender: TObject); var n : Integer; begin Printer.Title := 'superprint-' + WPRichText1.LastFileName; Printer.BeginDoc; n := 0; try while n
This code is used in the label printer example to print a lable: WPSuperPrint1.Paint( Printer.Canvas, - GetDeviceCaps(Printer.Handle,PHYSICALOFFSETX ),// Offset in pixels - GetDeviceCaps(Printer.Handle,PHYSICALOFFSETy ),// Offset in pixels GetDeviceCaps(Printer.Handle,LOGPIXELSY )/1440, // Multiplicator for Parameters (twips->Canvas) [wpDoNotScalePage] ); // Options

Properties

Methods

Events

OnCalcPageNumber : TWPSuperPrintCalcPageNumber= TWPSuperPrintCalcPageNumber

OnUpdate : TNotifyEvent= procedure (Sender : TObject) of Object