Code: Alles auswählen
cText = Trim(<ART."gruppe">)
showMessage("Ausgabe wird gestartet!")
sub MasterData1OnBeforePrint(Sender)
CR = ""
if cText <> Trim(<ART."gruppe">) then
CR = chr(13) + chr(13)
cText = Trim(<ART."gruppe">)
end if
end sub