Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

Увеличение размера при выводе на принтер Excel-файла   Найти похожие ветки 

 
fishka   (2007-03-29 09:33) [0]

В открытом Excel, полученном путем копирования из шаблона, заменяются значения ячеек. Файл не закрывается и заново не создается. Из Excel-я нажимает пользователь кнопку вывода на принтер. И так много-много раз. Если открыть окно заданий принтера, то видно, что размер выводимой информации увеличивается с каждым новым выводом на печать.
Если просто выводить один и тот же файл на печать из Excel-я (без программы), то размер выводимой информации не увеличивается.

У меня что-то некорректно в программе при замене ячеек или создании второй половины листа (получаемой из первой).

Помогите советом.
Вот кусок кода:

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


 
SLP ©   (2007-03-29 09:52) [1]


> fishka   (29.03.07 09:33)



> MSExcel_pay.Range["A:D"].Select;

Попробуйте ограничить выделенную область так:

WorkBook, Sheet, Range, Cell1, Cell2: Variant;

 BeginCol:=1;
 BeginRow:=1;
 EndCol:=4;
 EndRow:=20; //через переменную
 Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
 Cell2 := WorkBook.WorkSheets[1].Cells[EndRow,EndCol];  
 Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];


 
fishka   (2007-03-29 10:02) [2]

Ограничение выделенной области не помогло. Идёт увеличение размера при выводе на принтер.



Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.091 c
4-1166796037
AMS
2006-12-22 17:00
2007.05.27
про CreateProcess


2-1178525001
Труднопроизносимое имя
2007-05-07 12:03
2007.05.27
Работа со сканером штрих - кодов


2-1178801582
Doom-2
2007-05-10 16:53
2007.05.27
В отдельном потоке


15-1177774830
oldman
2007-04-28 19:40
2007.05.27
Ну вот и суббота (которая понедельник) на исходе...


15-1177570916
Kerk
2007-04-26 11:01
2007.05.27
Приключения главного скаута Челси в России