Delphi World - Распечатать Excel файл
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Распечатать Excel файл


uses   ComObj; 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  ExcelApp: OLEVariant; 
begin 
  // Create an Excel instance 
  // Excel Instanz erzeugen 
  ExcelApp := CreateOleObject('Excel.Application'); 
  try 
    ExcelApp.Workbooks.Open('C:\test\xyz.xls'); 
    // you can also modify some settings from PageSetup 
    // Man kann auch noch einige Einstellungen von "Seite Einrichten" anpassen 
    ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape; 
    // Print it out 
    // Ausdrucken 
    ExcelApp.Worksheets.PrintOut; 
  finally 
    // Close Excel 
    // Excel wieder schliessen 
    if not VarIsEmpty(ExcelApp) then 
    begin 
      ExcelApp.Quit; 
      ExcelApp := Unassigned; 
    end; 
  end; 
end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования