Como imprimir um HTML no Delphi?
Eu tenho uma aplicação que gera uma carta para o usuário em formato HTML. Hoje essa carta já é mandada por email, e gostaria de imprimir este HTML também.
Tentei utilizar o TWebBrowser com o seguinte trecho de código.
procedure Imprime(webHTML: TWebBrowser);
var
vIn, vOut: OleVariant;
begin
webHTML.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vIn, vOut) ;
end;
Ele imprimiu, mas como o componente usa o browser do windows ele imprimiu também o cabeçalho e rodapé na página. Eu não quero que saia nem o cabeçalho e nem o rodapé e muito menos vou alterar as configurações do internet explorer.
Há outra maneira de imprimir? Com outro componente ou de qualquer outra forma?
Eu vi no forum dizendo que se colocasse isto:
webHTML.ControlInterface.AddressBar := False;
webHTML.ControlInterface.MenuBar := False;
não sairia, mas continua saindo mesmo assim.
Atenciosamente,
Kiguti
Tentei utilizar o TWebBrowser com o seguinte trecho de código.
procedure Imprime(webHTML: TWebBrowser);
var
vIn, vOut: OleVariant;
begin
webHTML.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vIn, vOut) ;
end;
Ele imprimiu, mas como o componente usa o browser do windows ele imprimiu também o cabeçalho e rodapé na página. Eu não quero que saia nem o cabeçalho e nem o rodapé e muito menos vou alterar as configurações do internet explorer.
Há outra maneira de imprimir? Com outro componente ou de qualquer outra forma?
Eu vi no forum dizendo que se colocasse isto:
webHTML.ControlInterface.AddressBar := False;
webHTML.ControlInterface.MenuBar := False;
não sairia, mas continua saindo mesmo assim.
Atenciosamente,
Kiguti
Kiguti
Curtidas 0
Respostas
Kiguti
19/12/2006
Pessoal,
Eu achei como personalizar o rodapé e cabeçalho do WebBrowser no site da Microsoft. Detalhe, está para o Visual C++. Se alguém conseguir traduzir para Pascal.
[url]http://support.microsoft.com/kb/267240[/url]
Kiguti
Eu achei como personalizar o rodapé e cabeçalho do WebBrowser no site da Microsoft. Detalhe, está para o Visual C++. Se alguém conseguir traduzir para Pascal.
[url]http://support.microsoft.com/kb/267240[/url]
Kiguti
GOSTEI 0
Kiguti
19/12/2006
Comecei a implementar, mas estou tendo problemas com uma variável OleVariant.
Dica: precisa da unit ActiveX.pas
Estou tendo o seguinte erro:
Type not allowed in OLE Automation call
Criei um outro tópico para este problema.
Dica: precisa da unit ActiveX.pas
Estou tendo o seguinte erro:
Type not allowed in OLE Automation call
Criei um outro tópico para este problema.
GOSTEI 0