Sorry - da sind noch zwei Fehler in meinem Code-Beispiel, die ich durch Copy und Paste erzeugt habe:
Delphi-Quellcode:
with LabelToPage(ptOrder, iLabel) do
TextOut(X, Y, 'N.P.: '+order.text);
with LabelToPage(ptCode, iLabel) do
pdfcodedrucken(X, Y, Order.Text, False)};
marabu