Problema al generar PDF con report builder

[isaiaseml]

hola que tal tengo un problema al tratar de generar un PDF con report builder pues resulta que al tratar de generarlo me manda un error que dice: list index out of bonus (-1).. le doy aceptar y me genera el reporte...
el codigo es el sig

with verde do
begin
ShowPrintDialog := true;
PrinterSetup.Copies := 1;
AllowPrintToArchive := true;
DeviceType := 'PDF';
TextFileName := ExtractFilePath(ParamStr(0)) +'semaforo.pdf';
Print;

end;
uso el delphi xe2

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php)?, gracias por tu colaboración :)

Recuerda poner los tags al código fuente, ejemplo:

http://www.clubdelphi.com/images/UtilizarTAGs.png

Gracias :)

Y en cuanto al error que dices, creo que no lo has escrito bien, usa "copiar y pegar", gracias.

[isaiaseml]

procedure TFrmSemaforo.SpeedButton2Click(Sender: TObject);
begin
if imprimir<>'Y' then
SHOWMESSAGE('ERROR: NO HAY INFORMACIÓN A IMPRIMIR')
ELSE
Begin
if todas.Checked then
begin
with verde do
begin
ShowPrintDialog := true;
PrinterSetup.Copies := 1;
AllowPrintToArchive := true;
DeviceType := 'PDF';
Reset;
TextFileName := ExtractFilePath(ParamStr(0)) +'semaforo.pdf';
Print;

end;


end;
end;
end;


este es el codigo, anexo en una imagen el error q me tira cuando trato de generar el PDF. La otra imagen es ya el pdf generado

[isaiaseml]

la ventana q me sale dice:


list index out of bonus(-1)

[Casimiro Notevi]

la ventana q me sale dice:
list index out of bonus(-1)

Para mayor seguridad y puedas encontrar mejor ayuda, es conveniente que hagas lo que he comentado antes: "copiar y pegar".
El mensaje no dice eso ;)

[isaiaseml]

descuida ya solucioné el problema, y no puedo copiar y pegar el mensaje q me aparece en esa ventana de error...
bueno comento q lo unico q hice fue poner cambiar la propiedad de ShowPrintDialog := false;