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

Вниз

Печать Excel   Найти похожие ветки 

← →
Kirov   (2004-06-17 14:51) [0]

А как вывести на печать заданный диапазон ячеек?

---

← →
Романов Р.В. ©   (2004-06-17 14:54) [1]

Обычно пишут макрос и адаптируют его на Delphi

---

← →
Kirov   (2004-06-17 15:12) [2]

А чисто средствами Delphi?

---

← →
Тимохов ©   (2004-06-17 15:18) [3]

> Kirov   (17.06.04 15:12) [2]

1. ставишь запись в екселе.
2. делашь что нужно
3. останавливаешь запись
4. берешь код VB (alt+f11)
5. переносишь в дельфи.
6. адапитируешь.

вот тебе чисто дельфи.

---

← →
Романов Р.В. ©   (2004-06-17 15:19) [4]

Ты не правильно понял.
1. Запусти запись макроса.
2. Выполни необходимые операции.
3. Полученный код перенеси на Delphi

---

← →
Kirov   (2004-06-17 15:25) [5]

Понял. Всем спасибо.

---

← →
Kirov   (2004-06-17 15:44) [6]

А как адаптировать эту строку.
excel.ActiveSheet.PrintAria["B7:F16"];

---

← →
Kirov   (2004-06-17 16:47) [7]

Up

---

← →
YurikGL ©   (2004-06-17 20:12) [8]

procedure TForm1.Button1Click(Sender: TObject);
var
  App : Variant;
begin
try
app := CreateOleObject("Excel.Application");
 App.Visible := True;
 App.WorkBooks.Add;
 App.activesheet.range["a1","a5"].formula:="a";
 App.ActiveSheet.Range["A1","A3"].Select;
 App.Selection.PrintOut;
finally
 App:=Unassigned;
end;
end;

Распечатывает только выбранный диапазон ячеек ["A1","A3"].

---

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

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

Наверх

Память: 0.48 MB
Время: 0.036 c