Seleccionar datos para imprimir

[Alexandro]

Hola a todos amigos:
Bueno, me explicaré para que entiendan mi pregunta. Yo tengo un formulario en el que hay un DBGrid que me muestra los resultados de una consulta, un boton en este formulario indica imprimir y me da un reporte que contiene el resultado de la consulta. Ahora bien:
Yo quiero que cuando el usuario de clic en el boton Imprimir se muestre otro formulario con 2 listbox, en el 1ro estarán todos los numeros de identificación(son unicos) y el 2do en blanco, que quiero con esto, que el usuario escoja los registros que el quiera imprimir, los pase al 2 listbox(por medio de otro boton) y luego de en otro boton que diga "Reporte" y se muestren los reportes de los registros que el seleccionó.
Como puedo realizar esto? Espero que me ayuden en esto.
Muhcas gracias y suerte.

[[coso]]

Hola, puedes recorrer las lineas seleccionadas del dbgrid, añadir en un listbox temporal el campo identificador y lo que necesites, y luego filtrar tu tabla o query segun estos campos en el listbox. Para recorrer el multiselect:

Código Delphi [-]
ListBox1.Clear;
for i := 0 to DBGrid1.SelectedRows - 1 do
begin   
DBGrid1.datasource.dataset.GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
ListBox1.Add(DBGrid1.DataSource.DataSet.FieldByName('id').Asstring);
end;

[Alexandro]

Gracias por contestar coso, ya he resuelto lo del multiselect como me digiste, aunque tienes algunos errores. Ahora bien, ya selecionados los que quiero imprimir comp puedo hacer un filtrado a mi tabla? Es paradox7.
Gracias otra vez

[[coso]]

Gracias por contestar coso, ya he resuelto lo del multiselect como me digiste, aunque tienes algunos errores.

vaya, pues dimelos, pq esto lo saque de un componente dbgrid que uso mucho...mmm ya se, listbox1.items

Si usas alguna query, por ejemplo haciendo 'select * from tabla where id in (' y aqui los ids que previamente has grabado en el listbox, por ejemplo. Si usas filtros tipo bde, entonces, tabla.filter := 'id = ' + listbox1.Items[0] + ' and id = ' + ListBox1.Items[1] + etc... o bien haciendolo de manera automatica dentro de un bucle for. saludos.

[Alexandro]

Hola de nuevo coso:
veras he decidido hacerlo de manera automatica con un bucle For lo ago así:

Código Delphi [-]
  for I:=0 to LBox_DatosImprimir.Count-1 do
    begin
       FrmPrincipal.TProveedores.Filter:='No = '+LBox_DatosImprimir.Items[i];
    end;
FrmProveedorInforme.Reporte1.DataSet:=FrmPrincipal.TProveedores;
FrmProveedorInforme.Reporte1.Preview;

Sucede que cuando hago el preview me muetra el ultimo registro varias veces aunque yo no lo haya selecionado para imprimir. Este error a que se debe?

[*Caro*]

Empezado por Alexandro

Sucede que cuando hago el preview me muetra el ultimo registro varias veces aunque yo no lo haya selecionado para imprimir. Este error a que se debe?

Supongo porque no estas haciendo Filtered := True, ademas aunque lo hicieras solo te va ha filtrar por el ultimo que has seleccionado, ya que no concatenas lo que tienes.

Código Delphi [-]
for I:=0 to LBox_DatosImprimir.Count-1 do
 begin
   if i=0 then
    Filtro := '(No = '+LBox_DatosImprimir.Items[i]+')'
  else
    Filtro :=Filtro + ' AND (No = '+LBox_DatosImprimir.Items[i]+')'; 
end;
 FrmPrincipal.TProveedores.Filter := Filtro;
 FrmPrincipal.TProveedores.Filtered := True;
 FrmProveedorInforme.Reporte1.DataSet:=FrmPrincipal.TProveedores;
FrmProveedorInforme.Reporte1.Preview;

Aunque lo podías haber hecho con una consulta como te dice coso Select...Where nro in (.....)

Saluditos