[Delphi] Stampa WebBrowser

[3millennium]

Ciao a tutti...ho bisogno di stampare il contenuto di un componente WebBrowser...come faccio?
Mi serve x stampare il contenuto di una pagina senza avere le indicazioni della pagina...Header e Footer

[flipeflop]

Devi andare a rompere le scatole al registro, o almeno così ho risolto.
Ti posto il codice

var
printbgvalue,headervalue,footervalue:string;
begin
printbgvalue:=GetChiave(HKEY_CURRENT_USER,'Softwar e\Microsoft\Internet Explorer\Main','Print_Background');
headervalue:=GetChiave(HKEY_CURRENT_USER,'Software \Microsoft\Internet Explorer\PageSetup','header');
footervalue:=GetChiave(HKEY_CURRENT_USER,'Software \Microsoft\Internet Explorer\PageSetup','footer');
SetChiave(HKEY_CURRENT_USER,'Software\Microsoft\In ternet Explorer\Main','Print_Background','yes');
SetChiave(HKEY_CURRENT_USER,'Software\Microsoft\In ternet Explorer\PageSetup','header','');
SetChiave(HKEY_CURRENT_USER,'Software\Microsoft\In ternet Explorer\PageSetup','footer','');
WebBrowser.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DON TPROMPTUSER);
SetChiave(HKEY_CURRENT_USER,'Software\Microsoft\In ternet Explorer\Main','Print_Background',printbgvalue);
SetChiave(HKEY_CURRENT_USER,'Software\Microsoft\In ternet Explorer\PageSetup','header',headervalue);
SetChiave(HKEY_CURRENT_USER,'Software\Microsoft\In ternet Explorer\PageSetup','footer',footervalue);
end;

GetChiave e SetChiave leggono e scrivono rispettivamente nel registro.
WebBrowser è il tuo oggetto, ed ExecWB manda il comando per stampare.
Dopo la stampa, ripristino i valori precedenti nel registro.
Ciao ciao

PS. Il messaggio postato manda le righe a capo a cazzo

[alka]

Originariamente inviato da flipeflop
PS. Il messaggio postato manda le righe a capo a cazzo

A parte il termine improprio che sarebbe meglio evitare, il motivo è semplice: hai usato una quotazione al posto del tag per il codice.

Ciao!

[flipeflop]

Chiedo venia per il termine e l'ignoranza sul tag