Как распечатать excel файл
Как распечатать excel файл
Как распечатать excel файл { this is a simple example how to print an excel file using ole. } 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;
