Перейти к содержанию
Fire Monkey от А до Я
  • 0

WebBrowser Печать


Dev

Вопрос

Как отправить на печать WebBrowser в FMX?

пробу так

uses ActiveX

procedure TForm1.Button2Click(Sender: TObject);
var
PostData, Headers: OLEvariant;
begin
	WebBrowser1.ExExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, PostData, Headers);
end;

Ошибка Undeclared identifier: 'ExExecWB'

 

Ссылка на комментарий

Рекомендуемые сообщения

  • 1

В HTML надо добавить что-то типа

    <script type="text/javascript">
function Printt(){
    window.print();
};
    </script>

И потом просто вызвать этот ява код.

TMSFMXWebBrowser1.ExecuteJavascript('Printt();');

Если страница грузится с интернета полностью, то естественно надо отредактировать её с учётом html синтаксиса. Так же стоит убрать весь мусор со страниц и повысить версию браузеру для лучшей совместимости:

   a := TRegistry.Create;
   a.RootKey := HKEY_CURRENT_USER;
   a.OpenKey('Software\Microsoft\Internet Explorer\PageSetup',true);
   a.WriteString('footer','');
   a.WriteString('header','');
   a.CloseKey;
   a.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION',true);
   a.WriteInteger('Client1.exe',$2af9);
   a.CloseKey;
   a.Free;

Где Client1,exe - имя вашего exe.

P.S. И лучше использовать браузер от TMS, проблем под 10.2.х на порядок будет меньше.
 

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...