Печать HTML файла

← →
alord (2002-10-09 11:17) [0]

У меня есть файл HTML, как мне из DELPHI (в коде) распечатать его в виде, как в браузере?

← →
Song © (2002-10-10 10:17) [1]

ShellExecute()

← →
Opuhshii © (2002-10-10 11:01) [2]

что значит "распечатать его в виде, как в браузере?"

← →
Song © (2002-10-10 11:09) [3]

2Opuhshii © (10.10.02 11:01)
Видимо также как нажав Ctrl+P в браузере.

← →
Opuhshii © (2002-10-10 11:39) [4]

дык,. просто тогда,.. :)

uses SHDocVw;

procedure TForm1.Button1Click(Sender: TObject);
var
IE:IWebBrowser2;
Flags: OleVariant;
TargetFrameName: OleVariant;
PostData: OleVariant;
Headers: OleVariant;
pvaIN,PvaOut:OleVariant;
begin
IE:=CoInternetExplorer.Create;
IE.Navigate(" http://student.noolab.ru",Flags,TargetFrameName,PostData,Headers);
while IE.ReadyState <> 4 do // вот уж не помню как она называется,...
Application.ProcessMessages;
IE.Visible:=true;
IE.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT, pvaIN, PvaOut);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
IE:IWebBrowser2;
Flags: OleVariant;
TargetFrameName: OleVariant;
PostData: OleVariant;
Headers: OleVariant;
pvaIN,PvaOut:OleVariant;
begin

IE:=CoInternetExplorer.Create;
IE.Navigate(" http://student.noolab.ru",Flags,TargetFrameName,PostData,Headers);
while IE.ReadyState <> 4 do // вот уж не помню как она называется,...
Application.ProcessMessages;
IE.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DONTPROMPTUSER, pvaIN, PvaOut); // напечатаем и даже у пользователя не спросим %)
end;

Мой способ в одну строчку :-)

Печать HTML файла Найти похожие ветки