Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.56 MB
Время: 0.032 c
3-68621
vis79
2002-09-26 13:16
2002.10.21
НЕ РАБОТАЕТ Preview в QuickReport!!


3-68677
Jeka
2002-10-01 10:29
2002.10.21
многострочный title


3-68656
Азазелло
2002-09-27 09:33
2002.10.21
Не корректная работа BookMark-ов на ClientDataSet-е


3-68619
mer
2002-09-27 11:30
2002.10.21
работа с TupdateSQL


1-68849
Пончик
2002-10-10 13:32
2002.10.21
Компоненты





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский