Проблема с Excel

← →
fishka (2007-03-29 10:38) [0]

Из программы (запрос к БД MS SQL), заполняются ячейки Excel-я. Затем создаётся их копия на второй половине листа. Открывается Excel, и пользователь печатает документ Excel.
Затем становимся на другую запись запроса к БД, заполняем ячейки Excel, и пользователь посылает файл на принтер. Файл заново не создаётся. При открытии окна заданий принтера заметно значительное увеличение размера выводимой информации.
Когда размер файла доходит до 14 Мбайт, всё зависает (скорость падает).

Вот кусок кода:

MSExcel_pay.Workbooks[1].WorkSheets[1].Name:="ИМя ЛИСТА"; MSExcel_pay.WindowState:=-4143;
MSExcel_pay.range["A1"].Select;
MSExcel_pay.ActiveCell.FormulaR1C1:="6832746826";
//далее заполнение всех ячеек
........................
//создание копии
MSExcel_pay.Range["A1:D30"].Select;
MSExcel_pay.Selection.Copy;
MSExcel_pay.Range["F1:I30"].Select;
MSExcel_pay.Selection.PasteSpecial(Paste:=8);
MSExcel_pay.ActiveSheet.Paste;
MSExcel_pay.Cells.Select;
MSExcel_pay.Application.CutCopyMode:=False;
MSExcel_pay.Visible:=True;

Помогите, пожалуйста.

← →
sniknik © (2007-03-29 11:06) [1]

http://delphimaster.net/view/1-1175146436/
спам

Проблема с Excel Найти похожие ветки