Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Печать HTML файла [D5, Win95/98]

alord © (2002-10-09 11:17:00)
У меня есть файл HTML, как мне из DELPHI (в коде) распечатать его в виде, как в браузере?

Opuhshii (2002-10-10 12:44:00) [1]
2Song © (10.10.02 12:40)
согласен,. ;)

Song (2002-10-10 12:40:00) [2]
Мой способ в одну строчку :-)

Opuhshii (2002-10-10 11:39:00) [3]
дык,. просто тогда,.. :)

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 11:09:00) [4]
2Opuhshii © (10.10.02 11:01)
Видимо также как нажав Ctrl+P в браузере.

Opuhshii (2002-10-10 11:01:00) [5]
что значит "распечатать его в виде, как в браузере?"

Song (2002-10-10 10:17:00) [6]
ShellExecute()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »