<< Click to Display Table of Contents >> Navigation:  Programming > Printing and PDF Export > Label Priniting > Example Project > Initialization

procedure TForm1.FormCreate(Sender: TObject);

begin

 UseInch := false;

// Width of the sheet

 WPRichText1.RTFData.LabelDef.SheetWidth := 21;

 WPRichText1.RTFData.LabelDef.SheetHeight := 29.7;

// Rows and columns

 WPRichText1.RTFData.LabelDef.ColumnCount := 2;

 WPRichText1.RTFData.LabelDef.RowCount := 7;

// Margins

 WPRichText1.RTFData.LabelDef.Left := 0.5;

 WPRichText1.RTFData.LabelDef.Right := 0.5;

 WPRichText1.RTFData.LabelDef.Top := 1.5;

 WPRichText1.RTFData.LabelDef.Bottom := 1.5;

// Start with first

 WPRichText1.RTFData.LabelDef.StartNr := 0;

// Return Address

 WPRichText1.RTFData.LabelDef.Caption := ReturnAdress.Text;

// And activate

 WPRichText1.RTFData.LabelDef.Active := true;

 ReadProps;

end;