Print for button

[Kuchiki Byakuya]

Привет, помощ нужна вот процедурка:

Excel := CreateOleObject('Excel.Application' );
Excel.Visible := false;
WBk := Excel.WorkBooks.Open('D:\Diplom otschet v excel\Отчет1');
......
........{там строкам и колонкам задаю что надо}
.....
Excel.DisplayAlerts := False;
Excel.ActiveSheet.printout;
Excel.ActiveWorkbook.Close;
Excel.Application.Quit;
end;
Вместо печати он предлагает сохранить Отчет в *.tif, *tiff форматах, наверно он непонимает есть ли принтер. Подскажите что добавить для быстрой печати.

И еще вопрос ('D:\Diplom otschet v excel\Отчет1') как сделать чтоб он "Отчет1" открывался без путя к нему. Просто WBk := Excel.WorkBooks.Open('Отчет1') неканает.

[MadReason]

ты просто не успеваешь распечатать и закрываешь книгу.

try
Excel.ActiveSheet.printout;
finally//ожидаем пока пройдет печать
Excel.ActiveWorkbook.Close;
Excel.Application.Quit;
end;

не пробовал, но думаю что-то в это роде.

а где у тебя храниться "отчет1"? если в папке с программой, или где-то рядом, в фиксированной папке, то можно задать относительный путь

если в папке с программой, то можно так:

WBk := Excel.WorkBooks.Open(GetCurrentDir+'\Отчет1')

[Kuchiki Byakuya]

Благодарствую, буду пробовать

[Kuchiki Byakuya]

Неа, не так. Подскажи еще чтонибудь, я на счет печати.

[MadReason]

procedure TForm1.Button1Click(Sender: TObject);
var
  Excel: OLEVariant;
begin
  Excel := CreateOleObject('Excel.Application');
  try
    Excel.Workbooks.Open('C:\qwe.xls');
    Excel.DisplayAlerts := False;
    Excel.ActiveSheet.printout;
    //Excel.Worksheets.PrintOut; тоже работает
  finally
    if not VarIsEmpty(Excel) then
    begin
      Excel.Quit;
      Excel := Unassigned;
    end;
  end;
end;

попробуй так. сам попробовал, все отлично работает

[Kuchiki Byakuya]

Извини что надоедаю(самому надоело) всеравно вылазяет табличка (мол куда сохранить в *.tif, *tiff форматах. Требую наверно слишком но незнаеш что нужно сделать чтобы выбрать принтер на котором будет печататься. Я так понимаю у меня проблема с дровами(но т.к. я делаю программу не для себя такого косяка нельзя исключать и у того кто будет пользоваться).

[MadReason]

Function ShowPrintDialog:boolean;
begin
ShowPrintDialog:=true;
try
ShowPrintDialog:=Excel.Dialogs.Item[8].Show;
except
ShowPrintDialog:=false;
end;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Excel := CreateOleObject('Excel.Application');
  try
    Excel.Workbooks.Open('C:\qwe.xls');
    Excel.DisplayAlerts := False;
    ShowPrintDialog;
//    Excel.ActiveSheet.printout;
    //Excel.Worksheets.PrintOut; тоже работает
  finally
    if not VarIsEmpty(Excel) then
    begin
      Excel.Quit;
      Excel := Unassigned;
    end;
  end;
end;

ну вот тебе с диалогом. надеюсь заработает))

[Kuchiki Byakuya]

Каюсь, выручил конкретно, вот только куда всунуть
ShowPrintDialog:=true;
try
ShowPrintDialog:=Excel.Dialogs.Item[8].Show;
except
ShowPrintDialog:=false;
end;
End;

[MadReason]

в смысле куда? просто в код. функция обычная. если не нужно обрабатывать выдался ли диалог или нет, то можно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  Excel: OLEVariant;
begin
  Excel := CreateOleObject('Excel.Application');
  try
    Excel.Workbooks.Open('C:\qwe.xls');
    Excel.DisplayAlerts := False;
    Excel.Dialogs.Item[8].Show;
    //Excel.ActiveSheet.printout;
    //Excel.Worksheets.PrintOut; тоже работает
  finally
    if not VarIsEmpty(Excel) then
    begin
      Excel.Quit;
      Excel := Unassigned;
    end;
  end;
end;