Ich vermute, dass das wenn ich es in das Beispielprogramm versuche einzubauen plötzlich irgendwie geht.
Der schmale Bon geht ja korrekterweise. Hier etwas Code:
Delphi-Quellcode:
dm_ZBon.frxUserDataSetEmployeePurchase.RangeEnd := reCount;
dm_ZBon.frxUserDataSetEmployeePurchase.RangeEndCount := FData.EmployeePurchase.Count;
dm_ZBon.frxUserDataSetEmployeePurchase.OnNext := OnNextEmployeePurchaseRecord;
dm_ZBon.frxUserDataSetEmployeePurchase.First;
und noch das:
procedure TZBonPrinting.OnNextEmployeePurchaseRecord(Sender: TObject);
begin
if FEmployeePurchIndex + 1 < FData.EmployeePurchase.Count then
inc(FEmployeePurchIndex);
end;