hvordan gør jeg efter printer.newpage;

Den måde hvorpå du skriver noget på første side, definerer du da ikke hvor på siden det skal stå?
For så er det vel bare at sætte disse parametre til øverst på siden.
Må jeg se din rutine der skriver til printeren?

procedure TForm1.Label2Click(Sender: TObject);
var text:textfile;
    i:integer;
begin
  if printersetupdialog1.Execute then
  begin
    assignprn(text);
    rewrite(text);
    writeln(text,'');
    writeln(text,'');
    writeln(text,'  STAMINFORMATION FOR ID '+valgt+'..............');
    writeln(text,'');
    writeln(text,'');
    .
    .
    .
    writeln(text,'bla,bla') //Slut på side 1
    printer.newpage //
    write //osv
  end;
end;

Den starter på den nye side på samme linie som den stod på på foregående side....

I stedet for
  printer.newpage;
kan du prøve at skrive
  write(text,#12);

det vil jeg prøve, men det bliver først i morgen når jeg kommer på job igen.....

Du kunne jo også, istedet for at bruge 'NewPage', skrive:

Close(Text=;
Assignprn(text);
Rewrite(text);

Alternativt kan du bruge en lille rutine der skiver et bestemt sted på siden.

Lav en procedure der f.eks. hedder LPrint.

procedure TForm1.Lprint(X, Y: Real; Txt: String);
var                // Print X mm hen og Y mm ned.
  Tx, Ty: LongInt;  // Tx pixels hen og Ty pixels ned.
begin
  Tx := Round((X * GetDeviceCaps(Printer.Handle, Logpixelsx)) * 10 / 254);
  Ty := Round((Y * GetDeviceCaps(Printer.Handle, Logpixelsy)) * 10 / 254);
  Printer.Canvas.TextOut(Tx, Ty, Txt);
end;

Her udskriver jeg fra en TListBox.

        Printer.BeginDoc;
        Linie := 10;  // Vi starter 10 mm nede på siden.
        LinieHojde := 8;
        for X := 0 to ListBox1.Items.Count - 1 do
        begin
--->      LPrint(16, Linie, Copy(ListBox1.Items[X], 0, 80));
          // 16 mm hen og Linie mm ned.
          Linie := Linie + LinieHojde;
          if Linie > Sidehojde then
          begin
            Newpage;
            Linie := 10;
          end;
        end;
        Printer.EndDoc;

lsc -> din løsning funker bare, tænk at det var så nemt.........
smid svar for point.

Anton din løsning virker også, jeg opretter lige et spg så du også kan få point, jeg synes 30 er for lidt at dele http://exp.dk/spm/667940

Det lyder godt. #12 eller chr(12) - er formfeed og får printeren til at skifte til ny side.

mange tak