Hallo zusammen,
bin heute glaube ich das erste mal hier, und hoffe von Euch einen
Gedankenblitz zu bekommen. Ich habe in einem Netzwerk eine Windows
2003 Printserver mit verschiedenen Druckern am Laufen, welche auch
alle eine Freigabe haben. Verbunden werden die Drucker via "con2prt".
Soweit funktioniert hier auch ALLES.
Jetzt hat ein Anwender den Wunsch geäußert, das er pro Drucker einen
"Knopf" bekommt, welcher entweder pro Drucker ALLE Blätter aus Word
druckt, oder pro Drucker nur das AKTUELLE Blatt. Das ganze am besten
auf 2 verschiedenen Symbolleisten.
Ich bin jetzt folgendemaßen vorgegangen.
1.) Ich habe ein neues Dokument geöffnet, welches ich als
"Drucker.dot" abgespeichert habe.
2.) Dort habe ich 2 neue leere Symbolleisten "Drucker ALLE" und
"Drucker AKTUELL" erstellt
3.) Dann habe ich exemplarisch bei einem Drucker 2 Macroaufzeichnungen
gemacht, d.h. einmal für ALLE und einmal für AKTUELL.
4.) Via ALT+F11 habe ich mir den Code angeschaut und angepasst.
5.) Dann habe ich die verschieden Macros als ICON auf die
verschiedenen Symbolleisten gestellt.
6.) So wie es aussieht, geht das jetzt bei allen "echten Blech"
Druckern, also physikalisch vorhandene Geräte. Nur bei den PDF
Druckern bekomme ich eine Fehlermeldung. Ich vermute mal, das es
irgendwas mit den internen Ports zu tun hat, aber genaueres weiss ich
momentan nicht - hier hoffe ich ja auf Eure Hilfe ;-)
Die PDF Drucker sind ganz unten gelistet. Ich habe auch schon mal
versucht statt "ActivePrinter = " daraus ein
"Application.ActivePrinter=" zu machen, was aber nichts gebracht hat.
Wenn ich den PDF Drucker versuche via "Knopf" zu starten bekomme ich
eine Fehlermeldung von "Microsoft Visual Basic":
Laufzeitfehler "5140"
Drucken nicht möglich, es wurde kein Drucker installiert.
Vielen Dank für Eure Hilfe
Gruss Hassan
Anbei mal den Code.
Sub APD_HDR_ALLE()
'
' APD_HDR_ALLE Makro
' Ausdruck auf APD-HDR: Alle Blätter
'
ActivePrinter = "\\srv01.huk.local\APD-HDR"
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 APD_HDR_AS()
'
' APD_HDR_AS Makro
' Ausdruck auf APD-HDR: Aktuelles Blatt
'
ActivePrinter = "\\srv01.huk.local\APD-HDR"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage,
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 APD_FOTO_ALLE()
'
' APD_FOTO_ALLE Makro
' Ausdruck auf APD-FOTO: Alle Blätter
'
ActivePrinter = "\\srv01.huk.local\APD-FOTO"
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 APD_FOTO_AS()
'
' APD_FOTO_AS Makro
' Ausdruck auf APD-FOTO: Aktuelles Blatt
'
ActivePrinter = "\\srv01.huk.local\APD-FOTO"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage,
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 APD_PIXMA_ALLE()
'
' APD_PIXMA_ALLE Makro
' Ausdruck auf APD-PIXMA: Alle Blätter
'
ActivePrinter = "\\srv01.huk.local\APD-PIXMA"
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 APD_PIXMA_AS()
'
' APD_PIXMA_AS Makro
' Ausdruck auf APD-PIXMA: Aktuelles Blatt
'
ActivePrinter = "\\srv01.huk.local\APD-PIXMA"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage,
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 FARBE_BEWERTUNGSZENTRUM_ALLE()
'
' FARBE_BEWERTUNGSZENTRUM_ALLE Makro
' Ausdruck auf FARBE-BEWERTUNGSZENTRUM: Alle Blätter
'
ActivePrinter = "\\srv01.huk.local\FARBE-BEWERTUNGSZENTRUM"
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 FARBE_BEWERTUNGSZENTRUM_AS()
'
' FARBE_BEWERTUNGSZENTRUM_AS Makro
' Ausdruck auf FARBE-BEWERTUNGSZENTRUM: Aktuelles Blatt
'
ActivePrinter = "\\srv01.huk.local\FARBE-BEWERTUNGSZENTRUM"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage,
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 FARBE_BLANKO_AUTOMATISCH_ALLE()
'
' FARBE_BLANKO_AUTOMATISCH_ALLE Makro
' Ausdruck auf FARBE-BLANKO-AUTOMATISCH: Alle Blätter
'
ActivePrinter = "\\srv01.huk.local\FARBE-BLANKO-AUTOMATISCH"
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 FARBE_BLANKO_AUTOMATISCH_AS()
'
' FARBE_BLANKO_AUTOMATISCH_AS Makro
' Ausdruck auf FARBE-BLANKO-AUTOMATISCH: Aktuelles Blatt
'
ActivePrinter = "\\srv01.huk.local\FARBE-BLANKO-AUTOMATISCH"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage,
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 FARBE_BLANKO_MANUELL_ALLE()
'
' FARBE_BLANKO_MANUELL_ALLE Makro
' Ausdruck auf FARBE-BLANKO-MANUELL: Alle Blätter
'
ActivePrinter = "\\srv01.huk.local\FARBE-BLANKO-MANUELL"
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 FARBE_BLANKO_MANUELL_AS()
'
' FARBE_BLANKO_MANUELL_AS Makro
' Ausdruck auf FARBE-BLANKO-MANUELL: Aktuelles Blatt
'
ActivePrinter = "\\srv01.huk.local\FARBE-BLANKO-MANUELL"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage,
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 FARBE_BRILLENZENTRUM_ALLE()
'
' FARBE_BRILLENZENTRUM_ALLE Makro
' Ausdruck auf FARBE-BRILLENZENTRUM: Alle Blätter
'
ActivePrinter = "\\srv01.huk.local\FARBE-BRILLENZENTRUM"
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 FARBE_BRILLENZENTRUM_AS()
'
' FARBE_BRILLENZENTRUM_AS Makro
' Ausdruck auf FARBE-BRILLENZENTRUM: Aktuelles Blatt
'
ActivePrinter = "\\srv01.huk.local\FARBE-BRILLENZENTRUM"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage,
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 LASER_BLANKO_AUTOMATISCH_ALLE()
'
' LASER_BLANKO_AUTOMATISCH_ALLE Makro
' Ausdruck auf LASER-BLANKO-AUTOMATISCH: Alle Blätter
'
ActivePrinter = "\\srv01.huk.local\LASER-BLANKO-AUTOMATISCH"
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 LASER_BLANKO_AUTOMATISCH_AS()
'
' LASER_BLANKO_AUTOMATISCH_AS Makro
' Ausdruck auf LASER-BLANKO-AUTOMATISCH: Aktuelles Blatt
'
ActivePrinter = "\\srv01.huk.local\LASER-BLANKO-AUTOMATISCH"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage,
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 LASER_EINZELBLATT_AUTOMATISCH_ALLE()
'
' LASER_EINZELBLATT_AUTOMATISCH_ALLE Makro
' Ausdruck auf LASER-EINZELBLATT-AUTOMATISCH: Alle Blätter
'
ActivePrinter = "\\srv01.huk.local\LASER-EINZELBLATT-AUTOMATISCH"
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 LASER_EINZELBLATT_AUTOMATISCH_AS()
'
' LASER_EINZELBLATT_AUTOMATISCH_AS Makro
' Ausdruck auf LASER-EINZELBLATT-AUTOMATISCH: Aktuelles Blatt
'
ActivePrinter = "\\srv01.huk.local\LASER-EINZELBLATT-AUTOMATISCH"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage,
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 PDF_DRUCKER_ALLE()
'
' PDF_DRUCKER_ALLE Makro
' Ausdruck auf PDF: Alle Blätter
'
ActivePrinter = "\\srv01.huk.local\PDF"
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 PDF_DRUCKER_AS()
'
' PDF_DRUCKER_AS Makro
' Ausdruck auf PDF: Aktuelles Blatt
'
ActivePrinter = "\\srv01.huk.local\PDF"
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage,
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 |