| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Печать Excel [Delphi, Windows]

Simon ©   (2005-11-22 07:57:00) 

Я для просмотра загружаю Excel документ в OleContainer
OleContainer.CreateObjectFromFile('z:\форма.xlt', False);
подскажите как выбрать принтер и распечатать?

---

LORN   (2005-12-05 17:09:00) [1]

Печать дока
var
ExcelApp:Variant;
..........................................................
strokadat:=ListBox1.Items[ListBox1.ItemIndex];
  // Create an Excel instance
 // Excel Instanz erzeugen
 ExcelApp := CreateOleObject('Excel.Application');
 try
   ExcelApp.Workbooks.Open(Label1.Caption+strokadat);// задаешьпуть к файлу
   // you can also modify some settings from PageSetup
   // Man kann auch noch einige Einstellungen von "Seite Einrichten" anpassen
//   ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape;  //альбомная страница
   ExcelApp.Worksheets.PrintOut;//непосредственно печать
 finally
   // Close Excel
   // Excel wieder schliessen
   if not VarIsEmpty(ExcelApp) then
   begin
     ExcelApp.Quit;
     ExcelApp := Unassigned;
   end;
 end;

---

TStas   (2005-12-02 02:26:00) [2]

Может, я не понял вопрос, но нельзя СНАЧАЛА выбрать принтер, а потом, после загрузки в контейнер для печати документа программно установить в экселе выбранный принтер

---

Наверх