Unter WIN XP verwende ich Office 2003 und möchte auch dabei bleiben.
Leider kann man in Outlook keine Makros aufzeichnen, wie in EXCEL und WORD.
Ich möchte aber aus Outlook heraus einen Makro starten, um den markierten Bereich einer
Mail mit einem bestimmten Stempelhintergrund aus dem vorderen Schacht meines Druckers zu drucken.
Den "Programmcode" habe ich darum in WORD erstellt - da funktioniert auch alles einwandfrei - und in Outlook als neuen Makro erstellt.
(Also zwischen SUB und END SUB hineinkopiert)
(Das aufgezeichnete Script dazu habe ich ganz am Ende hier unten aufgelistet.)
Beim Starten dieses Makros bekomme ich die Fehlermeldung:
Fehler beim Kompilieren:
Projekt oder Bibliothek nicht gefunden
Markiert ist dabei das Wort Options in der 6. Zeile
Das habe ich herausgefunden:
Ich muss unter Visual Basic / Extras / Verweise einen der vielen Verweise aktivieren, damit Outlook die Befehle erkennt. Ich weiß aber nicht welchen Verweis.
Kann jemand helfen? (Bin kein Programmierer...)
Hier der Programmcode aus dem WORD Makro:
Sub Bestellung_drucken()
'
' Bestellung_drucken Makro
' Druckt den markierten Bereich aus dem vorderen Fach mit Stempelhintergrund - Muster1
'
With Options
.UpdateFieldsAtPrint = True
.UpdateLinksAtPrint = False
.DefaultTray = "Vorderes Fach"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintXMLTag = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = True
.PrintOddPagesInAscendingOrder = False
.PrintEvenPagesInAscendingOrder = False
.PrintBackgrounds = False
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
Application.PrintOut FileName:="", Range:=wdPrintSelection, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.HomeKey Unit:=wdLine
End Sub
[*][sup]
*Threadedit* 22.06.2009, 11:50:36
Admininfo: Führ bitte Threads nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe FAQ 2, #3.[/sup]