tesi73
Goto Top

Drucken aus 2 verschiedenen Kassetten

Hallo zusammen,
ich habe ein kleines Problem mit einem Drucker. Ich möchte gerne das er mir ein Worddokument in 2 Ausführungen ausdruckt. Dafür habe ich ein Macro aufgezeichnet.

Das soll folgendes aussagen:
drucke mir 1x Blanko aus Kassette 1
drucke mir 2x Briefbögen aus Kassette 3

lege Dokumente in Mailboxfach 4 ab.

Mein problem ist zz das er zwarst 3 Ausdrucke macht, leider nicht aus den einelnd angegebenen Kassetten sondern immer aus Kassette 1.

Was muss ich tun, bzw wie muss ich meine Anweisung verfeinern um das gewünschte Ergebnis zu erhalten?
Kennt sich da jemand aus?
Danke im Voraus!
Gruß Tesi73

Office 2003 SP3
Win XP SP3
Drucker Kyocera KM-5050 KX

Sub Druck_Zentral1()
'
' Druck_Zentral1 Makro
' Makro aufgezeichnet am 04.07.2011 von Tesi73
'
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

Content-ID: 169063

Url: https://administrator.de/forum/drucken-aus-2-verschiedenen-kassetten-169063.html

Ausgedruckt am: 23.12.2024 um 12:12 Uhr

holli.zimmi
holli.zimmi 04.07.2011 um 12:26:58 Uhr
Goto Top
HI,

hast Du deine Kassetten dementsprechend eingestellt?

Gruss

Holli
Tesi73
Tesi73 04.07.2011 um 12:42:02 Uhr
Goto Top
hi,

die kassetten sind im Drucker eingestellt mit Blanko und Vordrucke und den Kassetten zugewiesen.
ackerdiesel
ackerdiesel 04.07.2011 um 13:12:15 Uhr
Goto Top
Zitat von @Tesi73:
die kassetten sind im Drucker eingestellt mit Blanko und Vordrucke und den Kassetten zugewiesen.

und ich glaube hier liegt das Problem: Wenn im Word Normalpapier eingestellt ist, ignoriert der Drucker die Kassette und nimmt das Papier aus der Kassette die Du mit Normal deklariert hast. Du musst beide Kassetten auf Normalpapier setzen und dann sollte dein Makro funktionieren.

Gruß
ackerdiesel
Tesi73
Tesi73 04.07.2011 um 13:21:00 Uhr
Goto Top
und ich glaube hier liegt das Problem: Wenn im Word Normalpapier eingestellt ist, ignoriert der Drucker die Kassette und nimmt das
Papier aus der Kassette die Du mit Normal deklariert hast. Du musst beide Kassetten auf Normalpapier setzen und dann sollte dein
Makro funktionieren

Das würde ich ja gerne nur dann spinnen alle anderen Programme rum die mit den Kassetten und diesen (Blanko)(Vordrucke) usw arbeiten.
Viele drucke bei uns kommen aus Programmen die diese Einstellungen schon drin haben. Wenn ich die Einstellungen jetzt verändere, laufen die Programmausdrucke nicht mehr.
ackerdiesel
ackerdiesel 04.07.2011 um 15:57:41 Uhr
Goto Top
dann musst Du in deinem Makro nicht die Kassette ändern, sondern den Papiertyp und dann gehts.
Tesi73
Tesi73 04.07.2011 um 17:42:44 Uhr
Goto Top
könntest du mir die Textstellen zeigen wo ich den Papiertyp einstelle? Ich kann keine unterschiede erkennen und seh auch weder Papierauswahl noch Kasettenfächer.
Danke
ackerdiesel
ackerdiesel 05.07.2011 um 07:56:17 Uhr
Goto Top
Makro aufzeichnen:
<drucke mir 1x Blanko aus Kassette 1>

Datei / Drucken / Drucker auswählen / Eigenschaften / Papiertyp Normal / Ok / Drucken

<drucke mir 2x Briefbögen aus Kassette 3>

Datei / Drucken / Drucker auswählen / Eigenschaften / Papiertyp Briefkopf / Kopien2 / Ok / Drucken

und den Drucker einstellen auf:
Kassette1 = Normalpapier/DinA4
Kassette2 = Briefkopf/DinA4


Gruß
ackerdiesel
Tesi73
Tesi73 05.07.2011 um 09:28:24 Uhr
Goto Top
Guten Morgen @ll,
ich habe mal das Macro so wie Ackerdiesel gesagt aufgezeichnet. Ich kann in den beiden Aufzeichnungen nicht sehen ob und was Blanco und was Briebkopf beinhaltet. Die sehen für mich föllig Identisch aus, bis auf die Anzahl der Kopien. Und so sehen die anderen 10 versuche bei mir auch aus. Sofern ich das Macro dann im Anschluss starte, druckt er mir alle auf Blanco aus. Denke weil sich der Drucker nach jedem Druck auf Standard zurückstellt. Ich werde noch irre hierface-smile

Sub Makro2()
'
' Makro2 Makro
' Makro aufgezeichnet am 05.07.2011 von Tesi73
'
ActivePrinter = "\\srv2003\HH Zentraldrucker"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=True, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

Sub Makro3()
' Makro3 Makro
' Makro aufgezeichnet am 05.07.2011 von Tesi73
'
ActivePrinter = "\\srv2003\HH Zentraldrucker"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=True, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
ackerdiesel
ackerdiesel 05.07.2011 um 09:59:34 Uhr
Goto Top
Was für einen Drucker hast Du denn ? Hast Du die Kassetten richtig eingestellt, wie ich es geschrieben habe (und den Drucker einstellen auf Kassette1 = Normalpapier/DinA4Kassette2 = Briefkopf/DinA4) ? Geht das Drucken richtig/problemlos manuell, d.h. ohne Makro ?
Tesi73
Tesi73 05.07.2011 um 10:15:22 Uhr
Goto Top
habe einen Kyocera KM-5050 KX (Standgerät MFP) DIe Kassentten haben ihre Bezeichnung im Drucker. Kassette 1 (Blanko-A4); Kasette 2 (Vordruck-A5); Kassette 3 (Briefpapier-A4); Kassette 5 (Großpapier A3); Universalkassette (Benutzerdefiniert)
Wenn ich den Drucker manuell drucken lasse, geht alles wie gewünscht. Auch wenn ich das Makro aufzeichne ist es perfekt. Nur wenn ich es Debugge (F8) macht er nicht das was ich will. Dann bekomme ich 3 mal Blanko ausgedrückt. Kann es sein das es was mit der WTS umgebung zu tun hat?
Gruß Tesi
Tesi73
Tesi73 13.07.2011 um 11:17:11 Uhr
Goto Top
So da ich das Problem leider nicht mit einem Makro beheben konnte, wurde ein neuer Druckertreiber für das Gerät eingespielt und auf meine Voraussetzungen bzw meine Anforderungen angepasst. Ich habe also jetzt einen Drucker im Netzwerk der 1 Seite Blanko un 2 Seiten auf Briefpapier druckt. Ich hätte es viel lieber mit einem Makro geschafft, denn ich habe noch so einen Drucker, der auf Zuruf (zB Strg.+1) nur aus Kassette 1 Blanco drucken soll. Vielleicht kann mir jemand sagen was an den Aufzeichungen meines Makro nicht stimmt. Damit ich was ändern kann bzw einen Anfangspunkt habe. Mir selber scheint das die Makros gleich sind und das keine Kassetten angegeben sind und auch keine Ausgabepunkte. Irgendwie komisch.

Sub Makro()
'
' Makro Makro
' Makro aufgezeichnet am 13.07.2011
'
ActivePrinter = "\\srv2003\Vertrieb Zentral"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
Sub Makro1()
'
' Makro1 Makro
' Makro aufgezeichnet am 13.07.2011
'
ActivePrinter = "\\srv2003\Vertrieb Zentral"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
Sub Makro2()
'
' Makro2 Makro
' Makro aufgezeichnet am 13.07.2011
'
ActivePrinter = "\\srv2003\Vertrieb Zentral"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
Sub Makro3()
'
' Makro3 Makro
' Makro aufgezeichnet am 13.07.2011
'
ActivePrinter = "\\srv2003\Vertrieb Zentral"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Application.WindowState = wdWindowStateMinimize
End Sub