Nur Erste Seite Drucken mit Outlook2003 Makro

Mitglied: Shnuuu

Shnuuu (Level 1) - Jetzt verbinden

20.10.2011, aktualisiert 21.10.2011, 4613 Aufrufe, 1 Kommentar

Hallo,

ich möchte gerne ein Makro unter Outlook2003 Schreiben, mit dem ich nur die Erste Seite einer Email Drucken kann.
Nun habe ich folgendes Makro:


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long)
Sub PrintFirstPage()

'-------------------------------------------------------------------------------
' Druckermenü aufrufen (Datei, Drucken)
'-------------------------------------------------------------------------------

SendKeys "%dd"
Sleep 2000



'-------------------------------------------------------------------------------
' 1. Seite auswählen
'-------------------------------------------------------------------------------
SendKeys "%s"

'-------------------------------------------------------------------------------
' Ausdrucken
'-------------------------------------------------------------------------------

SendKeys "{Enter}"

End Sub

Ich muss dazu sagen das ich totaler VBA Neuling bin, ist mein erstes mal das ich was damit zu tun habe.
Wenn ich dieses Makro nun ausführe, dauert es eine kleine Zeit (Jenachdem wie hoch der Sleep befehl gesetzt ist)
und dann öffnet sich nur das Druckmenü. Es ist nicht der Haken auf Seite 1. gesetzt und der Enter Befehl kommt auch nicht mehr an.

Es scheint wohl irgendwie mit dem Sleep Befehl zusammen zu hängen. Die letzten beiden Befehle scheinen wohl ausgeführt zu werden, bevor das Druckmenü sich öffnet.
Ich hab das Gefühl das der Sleep Befehl als aller erstes ausgeführt wird und nicht in der Reihenfolge wie ich es vorgegeben habe..

Kann mir da mal jemand auf die sprünge helfen?
Mitglied: Shnuuu
24.10.2011 um 11:51 Uhr
Vielleicht interessierts ja jemanden:

Es lag in der tat an dem Sleep befehl. Dieser ist für mein Vorhaben nicht geeignet gewesen.
Ich habe es nun über eine Pause Funktion hinbekommen:

Public Sub Pause(Seconds As Single)
Dim Timer1 As Single, Timer2 As Single, currentDate As Date
currentDate = Date
Timer1 = Timer + Seconds
Timer2 = Timer1 - 86400 '24 Stunden
While ((Timer() < Timer1) And (currentDate = Date)) Or _
((Timer() < Timer2) And (currentDate + 1 = Date))
DoEvents 'Andere Prozesse nicht behindern
Wend
End Sub
Bitte warten ..
Heiß diskutierte Inhalte
HTML
Ich brauche dringend Hilfe !
gelöst JulianpustVor 1 TagFrageHTML17 Kommentare

Hallo erstmal, ich habe großen Mist gebaut in der Firma wo ich gerade mal 2 Tage arbeite. Was ist passiert: Ich sollte von Gmail ...

Netzwerke
Lan sperre (vieleicht)
gelöst 147852Vor 9 StundenFrageNetzwerke53 Kommentare

Hi Leute habe ein Problem, mein Vater hat mir eine Internet sperre gegeben ,aber keine normale. das Problem : mein Internet verschwindet am pc ...

Windows 10
Windows 10 schickt lokale Anfragen an das Gateway - was tun?
gelöst runthegaunzVor 1 TagFrageWindows 1015 Kommentare

Hallo! Ich bin vor ein paar Tagen wieder von Linux auf Windows umgestiegen. Ich hab die Windows 10 Version 20H2 installiert, wurde von Windows ...

Switche und Hubs
23 Cisco Switch einrichten - Wie am einfachsten?
gelöst Freak-On-SiliconVor 1 TagFrageSwitche und Hubs18 Kommentare

Hallo; Ich habe hier 4stk Cisco SX350X-24 9Stk Cisco SG350X-48P 10Stk Cisco SG350X-48 Diese werden aufgeteilt auf 9 Racks, und ersetzen alte HP Switches. ...

Exchange Server
Aktuelle Exchange Sicherheitslücke
jojo0411Vor 1 TagAllgemeinExchange Server11 Kommentare

Hallo Leute, Momentan gibt es da wieder einmal ein schönes neues Thema. Sehe ich das richtig das ich mit Exchange 2016 und CU 19 ...

Windows Server
Server-Internetverbindung kurz trennen und wieder aktivieren
gelöst imebroVor 1 TagFrageWindows Server11 Kommentare

Hallo, wir haben im Moment fast täglich immer wieder Ausfälle unserer Internetverbindung. Unser Provider sagt, dass er kein Problem feststellen kann. Aber wenn vom ...

Windows Server
Windows Firewall: Alle öffentliche IPs sperren bis auf eine
SabSchapVor 1 TagFrageWindows Server7 Kommentare

Hallo, wir haben einen Windows 2019 Server. Wir nutzen diesen als Webserver. Nun haben wir die Webadresse www.test.de und möchten diese für alle öffentlichen ...

LAN, WAN, Wireless
8 Geräte - verteilen oder auf einen Switch?
DoKi468Vor 18 StundenFrageLAN, WAN, Wireless10 Kommentare

Hallo liebe Admins, eine kurze Frage: Ich habe hier eine FB 6190 Cable stehen sowie einen noch unmonitored switch mit 8 Anschlüssen. Momentan sieht ...