Drucker : "Fach2" auswählen (VBA)

[Melvin]

Hallo zusammen,

wie kann ich das eingeben das der erste Seite mit das
Papier von Fach1 gedruckt wird und den Rest mit Papier aus
Fach2????

In Word klappt das:

Sub Papier_GEZ_Blanko()
'
' Papier_GEZ_Blanko Makro
' Makro aufgezeichnet am 29.06.2004 von dbt93
'
With Options
.UpdateFieldsAtPrint = False
.UpdateLinksAtPrint = False
.DefaultTray = "Fach 1"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = True
.PrintOddPagesInAscendingOrder = False
.PrintEvenPagesInAscendingOrder = False
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
Application.PrintOut FileName:="",
Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="1",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True,
Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
With Options
.UpdateFieldsAtPrint = False
.UpdateLinksAtPrint = False
.DefaultTray = "Fach 2"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = True
.PrintOddPagesInAscendingOrder = False
.PrintEvenPagesInAscendingOrder = False
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
Application.PrintOut FileName:="",
Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="2-",
PageType:=wdPrintAllPages _
, ManualDuplexPrint:=False, Collate:=True,
Background:=True, PrintToFile _
:=False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

Danke im Voraus,

Mel

[Michael Schüller]

Hallo Melvin,

> wie kann ich das eingeben das der erste Seite mit das
> Papier von Fach1 gedruckt wird und den Rest mit Papier aus
> Fach2????
>
> In Word klappt das:
>

[...Word-VBA-Code gelöscht...]

a) ich habe leider keinen Drucker mit zwei Papierfächern

b) der Word-Code kann in XL nicht funktionieren, da in XL weder ein ActiveDocument (Document=Word) noch irgendwelche
Word-Konstanten, z.B wdPrintDocumentContent (was mit "wd" beginnt, ist in der Regel eine Word-eigene Konstante) existieren

c) der Word-Code wurde offensichtlich per Makro-Aufzeichnung erstellt

d) daher mein Tipp: erstelle Dir den entsprechenden Excel-Code per Makro-Aufzeichung

Hoffe, ich konnte Dir helfen.

Schönen Gruß
--
Michael
michael....@gmx.de

[Melvin]

Danke Michael aber ich habe das natürlich versucht "den
entsprechenden Excel-Code per Makro-Aufzeichung" und das
geht nicht. Ich habe versucht das "Word-Makro" in Excel
anzupassen, es ist mir schon klar das "ActiveDocument"
nicht anerkannt ist. Ich habe gedacht dass der "Drucker"
teil von das Makro in Excel laufen wird!!! (with Options)

Melvin

>-----Originalnachricht-----

>.
>

[Thomas Ramel]

Grüezi Melvin

Melvin schrieb am 08.07.2004

> wie kann ich das eingeben das der erste Seite mit das
> Papier von Fach1 gedruckt wird und den Rest mit Papier aus
> Fach2????

Dass dies mit Excel nicht ganz so einfach möglich ist, wie mit Word hast du
ja bereits bemerkt - ein (leider 'nur' experimentelles) Add-In, das zu
diesem Zweck erstellt wurde findest Du hier.

http://members.chello.nl/keepitcool/files/MTprint_v1.0a.zip

Möglicherweise hilft es dir wieter?

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

[Win XP Pro SP-1 / xl2000 SP-3]