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
Property Height : Integer
Property LockPreview : Boolean
Property PrintLandscape : Boolean
Property Width : Integer