mit pdf-Tool nur Teil einen Stringgrid drucken

[marabu]

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