104
Excel.Rows.Item[PosInc].Select;
Excel.Selection.Copy;
Excel.Rows.Item[PosInc+1].Select;
Excel.ActiveSheet.Paste;
Excel.Application.CutCopyMode := False;
end;
Excel.Cells[PosInc,1] := IntToStr(i+1);
Excel.Cells[PosInc,2] := FormatDateTime('dd.mm.yyyy',
DM.QDateAll.FieldByName('Дата').AsDateTime);// + '/'+FormatDateTime('hh:nn',
DM.QDateAll.FieldByName('Время').AsDateTime);
Excel.Cells[PosInc,3] := DM.QDateAll.FieldByName('Фам').AsString ;
Excel.Cells[PosInc,4] := FormatDateTime('dd.mm.yyyy',
DM.QDateAll.FieldByName('Дата_рождения').AsDateTime);
Excel.Cells[PosInc,5] := DM.QDateAll.FieldByName('Серия_полиса').AsString +
' '+ DM.QDateAll.FieldByName('НОмер_страхового_полиса').AsString;
Excel.Cells[PosInc,6] := DM.QDateAll.FieldByName('Фамилия').AsString ;
PosInc := PosInc +1;
DM.QDateAll.Next;
end; //for
Excel.WorkSheets[1].Select;
Excel.Visible := True;
Excel.WorkSheets[1].PrintPreview;
except
Excel.Quit;
end;
end;
end;
procedure TFmDate.CheckBox1Click(Sender: TObject);
begin