mit pdf-Tool nur Teil einen Stringgrid drucken

[tom_po]

du hast Recht, zwischenzeitlich habe ich das korrigiert, es ist jetzt wirklich toll mit der Konstanten, warst mir so ein grosse hilfe, danke nochmals
werde jetzt DIN A4 label-Papier kaufen, muss vermutlich dann alles nochmals anpassen

der Code sieht jetzt so aus:

Delphi-Quellcode:

function LabelToPage(pt: Tpoint; index: Integer): TPoint;
const
  PageLeft = 20;
  PageTop = 20;
  LabelWidth = 400;   // Original-Label-Maße
  LabelHeight = 130;
  LabelCols = 3;
begin
  Result := Point(
              pt.X + PageLeft + (index mod LabelCols) * LabelWidth,
              pt.Y + PageTop + (index div LabelCols) * LabelHeight
            );
end;

procedure Tlote.Button1Click(Sender: TObject);
const                                          
  ptArtikel: TPoint = (X: 280; Y: 0);     
  ptFarbe: TPoint = (X: 0; Y: 50);     
  ptColumn2: TPoint = (X: 250; Y: 50);   
  ptOrder: TPoint = (X: 165; Y: 0);      
  //ptCode: TPoint = (X: 95; Y: 32);     
  ptColumn0: TPoint = (X: 0; Y: 0);  
  ptColumn1: TPoint = (X: 80; Y: 0);

usw.