automatisches Ausdrucken auf _meinem_! Rechner

[frankx]

Hellihello Rouven,

hat ein Weilchen gedauert, bis ich rausbekommen habe, was Webbrowser1 für ein Objekt ist, und dass WScript.Sleep nicht geht bzw. WScript überhaupt nicht (s.u.) in meiner .hta, dafür aber so, wenns wen interessiert:

Datei in Windows test.hta, darin

  
Public Sub drucken()  
Dim IExplorer : Set IExplorer = CreateObject ("InternetExplorer.Application")  
' geht nicht: Dim WshShell : Set WshShell = WScript.CreateObject("WScript.Shell")  
Dim WshShell : Set WshShell = CreateObject("WScript.Shell")  
  
IExplorer.Navigate "http://adresse.irgendwo"  
IExplorer.Visible = True  
  
Do While IExplorer.ReadyState <> 4  
  ' Warten bis der IE die Site komplett geladen hat  
Loop  
Const OLECMDID_PRINT = 6  
Const OLECMDEXECOPT_DONTPROMPTUSER = 2  
  
  
'klappte nicht ... WScript.Sleep 5000  
' hier egal, aber auch schön: WshShell.Sendkeys("Hund{ENTER}")  
  
IExplorer.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER  
  
' finished, so clean up and go home...  
'IExplorer.Quit  
End Sub  

und das ganze kann dann mit button über onclick aufgerufen werden, weil hta ja html kann.

Vielleicht hat ja noch jemand einen Tipp zum WScript (WScript.Sleep) dass nicht ging und die Frage, wie sich die Seitenanzahl variieren ließe.

Dank
frankx