1:
2:
3:

...
ppReport1.PrinterSetup.DocumentName :=  'A_KNR_' + (DBText1.Field.Text) + '_LISTE_' + 'getdate()';
...					

1:
2:
3:
4:
5:

var
  Date: String;
begin
  DateTimeToString(Date, 'yyyy-mm-dd_hh-nn-ss', now);
  ShowMessage(Date);					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer; Date:String;
begin
DateTimeToString(Date, 'yyyy-mm-dd_hh-nn-ss', now);
Query2.open;
Query2.First;
...					

1:
2:
3:
4:
5:
6:
7:

...
  ppReport1.PrinterSetup.DocumentName :=  'A_KNR_' + (DBText1.Field.Text) + '_LISTE_' + ShowMessage(Date)+'';
  ppReport1.Print;
  Query2.Next;
  end;
  end;
 end;					

1:

 ppReport1.PrinterSetup.DocumentName :=  'A_KNR_' + DBText1.Field.Text + '_LISTE_' + Date