Introduction Class TWPCustomRTFControl Class TWPRichText Class TWPCustomRichText Class TDBWPRichText Class TWPCustomRtfEdit Class TWPPreview Class TWPRichTextLabel
Class TWPToolbar Class TWPToolButton Class TWPToolPanel Class TWPVertRuler Class TWPRuler Class TWPGutter
Class TTextHeader Class TWPRTFSectionProps Class TWPOwnedCharAttrInterface Class TWPStoredCharAttrInterface Class TWPAbstractCharAttrInterface Class TWPAbstractCharParAttrInterface Class TWPCursorCharAttrInterface Class TWPFoundTextAttrInterface Class TWPCurrentWritingmodeAttrInterface
Class TWPRTFReaderEx Class TWPRTFReader Class TWPRTFWriter Class TWPRTFWriterEx Class TWPToolsReaderWriter Class TWPTextWriter Class TWPHTMLWriter Class TWPTOOLSWriter Class TWPUNITextWriter Class TWPCustomTextWriter Class TWPTextReader Class TWPHTMLReader Class TWPTOOLSReader Class TWPUNITextReader Class TWPCustomTextReader
Class TWPRTFDataCollectionBase Class TWPRTFDataCollection Class TWPRTFDataBlock Class TWPRTFDataBlockEd Class TParagraph Class TWPTextStyle Class TWPORTFTextBox Class TWPObjectField Class TWPObject Class TWPRTFEngineBasis Class TWPRTFEngineEdit
Class TWPManageHeaderFooterDlg Class TWPPagePropDlg Class TWPParagraphBorderDlgEx Class TWPParagraphBorderDlg Class TWPTabDlgPrp Class TWPOneStyleDlg Class TWPBulletDlg Class TWPSymbolDlg Class TWPSymbolDlgEx Class TWPSpellCheckDlg Class TWPStringDlg Class TWPStyleDlg Class TWPCustomAttrDlg Class TWPSearchReplaceDlg Class TWPParagraphPropDlg Class TWPPreviewDlg Class TWPReportBandsDialog Class TWPTableDlg
Class TWPSuperMerge Class TDBWPEvalEngine Class TWPEvalEngine Class TWPTableProducer Class TWPBand Class TWPDataSetAbstractAdapter
Class TWPSvgXMLNode Class TWPXMLOneLevel Class TWPCustomXMLInterface Class TWPXMLInterface Class TWPLanguageControl Class TWPXMLTree Class TWPSVGXMLTree Class TWPCustomXMLTree
Main Website Buy WPCubed VCL Components Contact/License

WPTools Manual



Search


(press enter to search)

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 BackgroundImage : TPicture

Property BackgroundImageModes : TWPSuperPrintImageModes

Property BackgroundImageName : string

Property BGMarginBottom : Integer

Property BGMarginLeft : Integer

Property BGMarginRight : Integer

Property BGMarginTop : Integer

Property BookletMode : TWPSuperPrintBookletModes

Property Columns : Integer

Property Copies : Integer

Property EditBox : TWPCustomRtfEdit

Property Height : Integer

Property InbetweenHorz : Integer

Property InbetweenVert : Integer

Property LabelStartColumn : Integer

Property LabelStartRow : Integer

Property Landscape : TWPSuperPrintLandscape

Property LockPreview : Boolean

Property MarginBottom : Integer

Property MarginLeft : Integer

Property MarginRight : Integer

Property MarginTop : Integer

Property Mode : TWPSuperPrintMode

Property PageHeight : Integer

Property PageWidth : Integer

Property Preview : TPaintBox

Property PrintLandscape : Boolean

Property PrintTopDown : Boolean

Property Rows : Integer

Property Width : Integer

Methods

Create(aOwner:TComponent)

Destroy

Procedure GetWH(w:Integer; h:Integer)

Procedure Notification(AComponent:TComponent; Operation:TOperation)

Function Paint(Canvas:TCanvas; prxoff:Integer; pryoff:Integer; prmult:Extended; Options:TWPSuperPrintOption; startrectnr:Integer; sheetnr:Integer) : Integer

Procedure PaintPreview

Procedure PrintTiledBackground(toCanvas:TCanvas; PageRect:TRect; Mult:Double; bit:TGraphic; imagemode:TWPDrawImageMode)

Procedure SetTwoUpBooklet(Enabled:Boolean; PageWidth:Integer; PageHeight:Integer)

Procedure Update

Events

OnCalcPageNumber : TWPSuperPrintCalcPageNumber= TWPSuperPrintCalcPageNumber

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