Hallo Tom,
die Zahl der Labels, die nebeneinander ausgegeben werden sollen, kannst du über eine Konstante steuern:
Delphi-Quellcode:
function LabelToPage(pt: Tpoint; index: Integer): TPoint;
const
PageLeft = 20;
PageTop = 30;
LabelWidth = 600; // Original-Label-Maße
LabelHeight = 120;
LabelCols = 3;
begin
Result := Point(
pt.X + PageLeft + (index mod LabelCols) * LabelWidth,
pt.Y + PageTop + (index div LabelCols) * LabelHeight
);
end;
Aber bei einer Label-Breite von 600 und deiner eingestellten Seitenbreite von 1224 wird das wohl nicht passen.
Freundliche Grüße vom marabu