Консультация № 40338
15.04.2006, 09:04
0.00 руб.
0 1 1
Здравствуйте! Подскажите, пожалуйста, как при создании отчета в Excel сразу вывести его на печать, не показывая? Заранее спасибо!!!

Обсуждение

Неизвестный
15.04.2006, 12:14
общий
это ответ
Здравствуйте, Андрющенко Вячеслав Васильевич!

Нашел пример (проверял аналогичный для WORDа, думаю этот тоже должен работать).
Пример взят из справки программы Delphi World 6 (http://delphiworld.narod.ru/) -
скачай - не пожалеешь.

Приложение:
uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var ExcelApp: OLEVariant; begin // Create an Excel instance // Excel Instanz erzeugen ExcelApp := CreateOleObject(‘Excel.Application‘); try //Скрываем Excel ExcelApp.Visible := False; 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;
Форма ответа