Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.21;
Скачать: 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 вся ветка

Текущий архив: 2002.10.21;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
3-68650
maxim2
2002-09-30 10:16
2002.10.21
Почему в DBGrid е не отображаются символы после запятой


4-69082
olegg
2002-09-06 13:01
2002.10.21
Уважаемые мастера , файл открыт на чтение с другого компьютера


1-68856
JeffMill
2002-10-10 15:03
2002.10.21
работа с отчетами


14-68983
AFrolov
2002-09-26 17:36
2002.10.21
компонент текстового редактора с полями.


1-68735
zam2000
2002-10-10 15:25
2002.10.21
как загрузить в Richedit dos текст, чтобы осталась псевдографика