|
No entiendo bien lo que me quieres decir. Yo creo el informe lo previsualizo e intento cambiar a 2 copias intercaladas en las propiedades de la impresora a traves del boton del reporte creado y despues le doy al boton de imprimir que existe en el reporte.
De todas formas mi codigo
procedure TRECIVFORM.QRDBText1Print(sender: TObject; var Value: String);
begin
DataModule2.Table5.IndexName:= 'DNI';
if not DataModule2.Table5.Findkey([Query1.FieldByName('NIF_PROP1').Value]) then ShowMessage('No encuentro el Nif del propietario');
IF Query1.FieldByName('TIPO').Value = 'V' then
begin
QuickRep1.PrinterSettings.Copies:=1;
QRLabel1.Caption:= ' ';
QRLabel7.Caption:= 'arrendatario de la expresada vivienda';
QRLabel3.Caption:= 'Vivienda:';
QRLabel8.Caption:= 'la cantidad de:';
QRLabel28.Caption:= ' ';
QRLabel6.Caption:= QRLabel25.Caption;
end;
if Query1.FieldByName('TIPO').value = 'T' then
begin
QuickRep1.PrinterSettings.Copies:=1;
QRLabel1.Caption:= ' ';
QRLabel7.Caption:= 'arrendatario del expresado trastero';
QRLabel3.Caption:= 'Trastero:';
QRLabel8.Caption:= 'la cantidad de:';
QRLabel28.Caption:= ' ';
QRLabel6.Caption:= QRLabel25.Caption;
end;
if Query1.FieldByName('TIPO').Value = 'L' then
begin
QuickRep1.PrinterSettings.Copies:=2;
QRLabel1.Caption:= 'Recibo Núm: ';
QRLabel7.Caption:= 'arrendatario del expresado local';
QRLabel3.Caption:= 'Local:';
QRLabel8.Caption:= 'la cantidad de:';
QRLabel6.Caption:= QRLabel25.Caption;
QRLabel28.Caption:= Form24.DBEdit1.Text;
Form24.DBEdit1.Text:=IntToStr((StrToInt(Form24.DBEdit1.Text)+1));
//DataModule2.Table3.edit;
//DataModule2.Table3.FieldByName('ULTRECIV').AsInteger:= StrToInt(Form24.DBEdit1.Text);
//DataModule2.Table3.post;
//DataModule2.Table3.Refresh;
pai:= pai+1;
end;
MUCHAS GRACIAS POR TU RESPUESTA Y ESPERO QUE NOS ENTENDAMOS
|