Скачать: CL | DM;

Печать 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;

---

← →
Song ©   (2002-10-10 12:40) [5]

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

---

← →
Opuhshii ©   (2002-10-10 12:44) [6]

2Song © (10.10.02 12:40)
согласен,. ;)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c