Office: IE-Seite öffnen, drucken und schließen per VBA

Hallo,

gibt es die Möglichkeit per VBA eine bestimmte Seite (URL) im IE zu öffnen, diese Seite zu drucken und dann auch die Seite wieder zu schließen?

Wenn ja: Wie kann ich das realisieren?

Vielen Dank für Eure Hilfe
Gruß
Thomas

:)

 

Hallo Thomas,

ganz ohne Benutzeraktion geht es nicht.

Teste mal:

Option Explicit

Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Public Sub test1()
Dim objExplorer As Object
Set objExplorer = CreateObject(Class:="InternetExplorer.Application")
With objExplorer
.Visible = True
.Navigate "VBA - IE-Seite öffnen, drucken und schließen per VBA - MS-Office-Forum"
Do
DoEvents
Call Sleep(100)
Loop Until .Busy = False
Call .ExecWB(6, 2, Null, Null)
Call .Quit
End With
End Sub

 

Hallo Nepumuk,

vielen Dank!

Bis auf den Druck funktioniert es super:

Der IE-Browser wird geöffnet.
Die Seite kurz angezeigt
Der Browser wird wieder geschlossen.

Gedruckt wird aber leider die Seite nicht.

Wenn ich den Code richtig verstehe, dann sollte ja

den Druck ausführen. Der 6 steht für Drucken und der 2 für die Unterdrückung einer Meldung (DONTPROMPTUSER). Eine andere Einstellung (also z.B. 1 -PROMPTUSER) hat auch keine Auswirkung.

Woran kann das liegen?

Gruß
Thomas

 

Hallo Thomas,

das habe ich befürchtet, denn bei mir hat es auch nur funktioniert wenn ich den Code mit F8 durchgegangen bin. Das liegt an dem "neuen" Sicherheitskonzept des Internetexplorers, mit IE6 hat es noch einwandfrei funktioniert. Ich schau mal, ob ich es besser hinbringe.

 

Auch hallo,

vielleicht reicht es schon den IE so zu initialisieren:

PHP:

         Set objExplorer = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")


 

Hallo,

so funktioniert es bei mir:

Option Explicit

Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Public Sub test1()
Dim objExplorer As Object
Dim lngCount As Long
Set objExplorer = CreateObject(Class:="InternetExplorer.Application")
With objExplorer
.Visible = True
.Navigate "VBA - IE-Seite öffnen, drucken und schließen per VBA - MS-Office-Forum"
Do
DoEvents
Call Sleep(100)
Loop Until .Busy = False
Call .ExecWB(6, 2, Null, Null)
For lngCount = 1 To 100
DoEvents
Call Sleep(100)
Next
Call .Quit
End With
End Sub

@ Anton, leider keine Besserung.

 

Hallo Nepumuk,

juhu. Bei mir zu Hause scheint das zu funktionieren. Muss es aber noch ausführlicher testen.

Danke!!! *top

Gruß
Thomas

Habe den Beitrag auf erledigt gesetzt.

 

Hallo,

leider funktioniert es im Büro doch nicht ganz. Nach dem Drucken bleibt das Browserfenster offen und es wird eine leere Seite angezeigt.

Da ich mit der Funktion einen Art Seriendruck erzeugen möchte, bleiben dann viele leere Browserfenster offen. Das würde ich gerne vermeiden.

Sonst funktioniert das Makro gut.

Gruß
Thomas

Wieder auf unerledigt gesetzt

 

Hallo Thomas,

muss ich selber im Büro testen, habe zuhause keinen Drucker. Komme aber erst am Montag dazu.

 

Hallo Thomas,

so, jetzt habe ich es selber getestet. Ich kann dein Problem nicht nachvollziehen, das per VBA geöffnete Explorerfenster wird nach dem Drucken immer geschlossen.

Was hast du am Programm geändert?