Gecheckte Items mit dem Report Builder ausdrucken!

[Metallicwar]

Danke bis dahin, das könnte zu einer Lösung führen....
... aber
Ich wähle 2 Items aus meiner Checklistbox aus und drücke auf einen Button, der mir alle zudruckende Dokumente im TppViewer anzeigen sollte, jedoch tritt folgende Fehlermeldung auf:

Code:

qMitarbeiter: Error 3111: Unknown Identifier found in a record filter expression aufgetreten

Delphi-Quellcode:

procedure TfrmAusweisdruck.ppReport1BeforePrint(Sender: TObject);
var
  sFilter: String;
  ichecked: Integer;
begin
  sFilter := '';
  for ichecked := 0 to chlistboxMitarbeiter.Count - 1 do
    if chlistboxMitarbeiter.Checked[ichecked] then
      begin
        if sFilter <> '' then sFilter := sFilter + 'or';
        sFilter := sFilter + 'ID = ' + IntToStr(Integer(chlistboxMitarbeiter.Items.Objects[ichecked]));
      end;
  if sFilter <> '' then
  begin
    qMitarbeiter.Filter := sFilter;
    qMitarbeiter.Filtered := True;
  end;
end;

Delphi-Quellcode:

procedure TfrmAusweisdruck.btnEinblendenClick(Sender: TObject);
begin
  frmAusweisdruck.ClientWidth := 697;

  btnAusblenden.Enabled := True;
  btnEinblenden.Enabled := False;

  ppViewer1.Report := ppReport1;
  ppReport1.PrintToDevices;