[jmlifi]

El QReport me visualiza una información (es correcta), pero a la hora de imprimir me saca información diferente.

Me visualiza(correcto):

PACKING LIST 8
ALBARAN: 8
KIT: GP016393 0.1
KENAZEN
GP011685 CONDUCTOR
1018555 PLATFORM
VARIOS
1736525 BRACKETS FOR EARTHING CONDUCTOR
1736600 BENDED BRACKET PLATFORM
1736601 BRACKETS FOR LADDER
736144 SOPORTE SEGURIDAD
726083 BRACKET F. GALLERY, TOPSEC.V66

Me Imprime:

PACKING LIST 8
ALBARAN: 8
KIT: GP016393 0.1
KENAZEN
1736525 BRACKETS FOR EARTHING CONDUCTOR
1736600 BENDED BRACKET PLATFORM
1736601 BRACKETS FOR LADDER
736144 SOPORTE SEGURIDAD
726083 BRACKET F. GALLERY, TOPSEC.V66
VARIOS
1736525 BRACKETS FOR EARTHING CONDUCTOR
1736600 BENDED BRACKET PLATFORM
1736601 BRACKETS FOR LADDER
736144 SOPORTE SEGURIDAD
726083 BRACKET F. GALLERY, TOPSEC.V66

Tengo un formulario(report) y algunos componentes son los siguientes: componentes:
tblProveedores: TSQLQuery;
tblPackingList: TSQLQuery;
QR: TQuickRep;
DetailBand1: TQRBand;
QRSubDetail1: TQRSubDetail;
PageHeaderBand1: TQRBand;

QR.dataset = tblProveedores

DetailBand1.BandType = rbGroupHeader
DetailBand1.LinkBand = QRSubDetail1

QRSubDetail1.HeaderBand = DetailBand1

Procedimiento:

procedure TLstAdministracionFrm.Ejecuta(const alba: Integer; const kiti: String; const codpack: integer);
begin
albaran.Caption := IntToStr(alba);
kit.caption := kiti;
tblProveedores.ParamByName('codpack').AsInteger := codpack;
tblProveedores.Open;
tblproveedores.First;
while not tblproveedores.Eof do begin
tblPackingList.ParamByName('proveedor').AsString := tblproveedoresPROVEEDOR.AsString;
tblPackingList.ParamByName('codpack').AsInteger := codpack;
tblPackingList.Open;
tblproveedores.Next;
end;
if not tblPackingList.IsEmpty then
cod.Caption := IntToStr(codpack);
end;

¿Cual puede ser la solución?