Imprimer une page html sous Windows

 

Kroc - 28/10/2010

J'ai bricolé ce petit truc pour pouvoir imprimer un fichier html sous Windows sans aucune intervention de l'utilisateur. Le code est basé sur COM on! [1] de Richard Suchenwirth et requiert optcl.

	# Chargement d'optcl (impérativement après Tk) :
	package require Tk
	package require optcl

	# Procédure à appeler pour imprimer un fichier :
	proc printhtm {fichier} {
		if {![file exists $fichier]} {return 0}
		if {![info exists ::htm]} {
			catch {::optcl::new -window .htm Shell.Explorer.2} ::htm
		}
		if {![catch {$::htm Navigate [file nativename [file normalize $fichier]]}]} {
			update
			after 2500
			if {![catch {$::htm ExecWB "OLECMDID_PRINT" "OLECMDEXECOPT_DONTPROMPTUSER"}]} {
				return 1
			}
		}
		return 0
	}