Форум: "Основная";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];
ВнизПечать 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.042 c