Mmmmmh... das einzige, was mir dazu einfällt, wäre das Ereignis OnNeedData in Verbindung mit einem TQRLabel für die Zeilennummer. Du setzt vor dem Print eine Member-Variable der Form auf 1, und in jedem OnNeedData-Event bekommt der Label von oben diese Nummer als Caption zugewiesen, danach ein Nummer++. Aber ob das wirklich in jedem Fall funktioniert... -- Mit 40 Fieber sitzt man nicht mehr vor dem PC. Man liegt im Bett. Mit dem Notebook.