Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
ВнизПечать 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c