11
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 169063
Url: https://administrator.de/contentid/169063
Printed on: April 23, 2024 at 06:04 o'clock
11 Comments
Latest comment
HI,
hast Du deine Kassetten dementsprechend eingestellt?
Gruss
Holli
hast Du deine Kassetten dementsprechend eingestellt?
Gruss
Holli
hi,
die kassetten sind im Drucker eingestellt mit Blanko und Vordrucke und den Kassetten zugewiesen.
die kassetten sind im Drucker eingestellt mit Blanko und Vordrucke und den Kassetten zugewiesen.
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.die kassetten sind im Drucker eingestellt mit Blanko und Vordrucke und den Kassetten zugewiesen.
Gruß
ackerdiesel
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
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.
dann musst Du in deinem Makro nicht die Kassette ändern, sondern den Papiertyp und dann gehts.
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
Danke
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
<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
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 hier
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
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 hier
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
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 ?
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
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
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
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
