Imprimir por seleccion?

[danytorres]

Gracias por responder delphi.com.ar, pero nunca e utilizado eso de SelectedBookmark donde lo encuentro y como lo utilizo para imprimir una seleccion que el usuario relise de una consulta, ha estoy utilizando el Rave 5.

________________
Un saludo a todos..

[Marymania]

Danytorres a mi me pasa algo parecido, te cuento que quiero hacer un reporte en el que me muestre los datos que selecciono en DBEdit. Me explico mejor:
Estoy trabajando en la realización de un sistema de inventario en el cual tengo una pantalla de captación que tiene un navegador para mostrar cada uno de los datos y un DBGrid para visualizar todos los datos asociados.
Quiero que los datos que se me muestren en ese momento en los DBEdit o lo mismo la fila de datos que esté seleccionada sean solamente la que se muestren en el modelo de solicitud. Y aquí es cuando viene el problema solo me muestra los datos del primer movimiento en el reporte. Los reportes los hago en el FastReport, quizás en otro programa para hacer reportes sea mas fácil o menos complicado.

Espero que alguien que entre a este foro me ayude tanto a mi como a ti Danytorres, a fin de cuentas los dos queremos algo parecido.

Gracias por leer mi mensaje y muchisimas gracias mas si pueden ayudarme

Saludos a todos de

Marilyn

[[Lepe]]

Hola DanyTorres, hay varias cositas que me gustaría comentar:

Yo usaría un Tchecklistbox, al tiempo de añadir los elementos, se puede usar AddObject en lugar de usar Add, de esta forma harías algo así para rellenar el listbox.

Código Delphi [-]
   Tchecklistbox.items.AddObject( tabla1Campo.AsString, Pointer(tabla1ClavePrimaria.AsInteger);

Para saber los que marcó el usuario, es un simple bucle:

Código Delphi [-]
  str := emptystr;
  for i:=0 to checklistbox.items.count- 1 do
  with checklistbox do
   if Checked[i] then
      str := str + inttostr(Integer(Items.Objects[i]))+ ', ';
  if str <> emptystr then
     delete(str, length(str)-1, 1); // borramos la última coma

Por último el sql a lanzar se crea así:

Código Delphi [-]
   query1.sql.text := ' select * from tabla where ClavePrimaria in ('+ str+')';
   query1.open;

el resultado del sql sería:

Código SQL [-]
 
 select * from tabla where ClavePrimaria in (1,3,33,5);

Suponiendo que la clave primaria está definida como un entero en la base de datos.

Saludos