Labels per page - the answer

rbuser

If anyone else needs to calculate the number of labels per page after
using the label wizard:

function TListRptForm.GetLabelsPerPage(LabelReport: TppReport): Integer;
var
PrinterSetup: TppPrinterSetup;
begin
PrinterSetup := LabelReport.PrinterSetup;

Result := Trunc(((PrinterSetup.PaperHeight - PrinterSetup.MarginTop -
PrinterSetup.MarginBottom) /
(LabelReport.DetailBand.Height +
LabelReport.DetailBand.BottomOffset)));
Result := Result * LabelReport.Columns;
end;

--
_Bill_