Druckerschacht mit VBA ansteuern
Peter P.
Gibt es eine Möglichkeit, die Auswahl des Druckerschachtes über ein Makro
auszuwählen?
Ich stelle mir das so vor:
In der Dokumentvorlage sind 3 Makros installiert die jeweils einen der
Druckerschächte ansprechen...
Bei dem Drucker handelt es sich um einen Kyocera Laserdrucker...
System: Windows 98, Word 2000
Für Hilfe wie immer sehr dankbar
Gruß Peter
Peter P.
Patricia Lang
wie hast du das gelöst?! Würde mich auch interessieren... wäre schön, wenn
du's noch auflöst...
Viele Grüße,
Patricia
Micha
am einfachsten ist, du zeichnest ein Makro mit dem Makro-
Recorder auf (so habe ich es auch getan!).
Dann findest du im Makro evtl. folgende Zeile:
**************************************
With Options
.UpdateFieldsAtPrint = True
.UpdateLinksAtPrint = False
.DefaultTray = "Fach 1"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = True
End With
**************************************
beachte .DefaultTray = "Fach1"
Das stand bei mir auf Tray1 und es funktionierte einfach
nicht!!! LAnges probieren, dann habe ich in den Windows-
Druckereinstellungen nachgesehen: Siehe da, die
Fachbezeichnungen waren Fach1, Fach2 etc. Das habe ich
dann bei defaulttray eingestzt únd seit dem funktionert es
blendend im Netzwerk(zumindest auf HPLaser4000 und
HPlasercolor4550). Vorteil: Bei beiden ist die
Fachbezeichnung gleich, somit gilt das Makro für alle
user, egal auf welchen der beiden Drucker sie zugreifen.
Schön ist auch, dass du dann auch noch über ausgeblendeten
Text entscheiden kannst.
Melde dich wenn es klappt.
*micha
Thomas Gahler
Dein Makro ist ja schön und funktioniert auch sicher. Nur ist es nicht
der optimale Ansatz. Besser wäre folgendes. (Habe zur Zeit kein Word
verfügbar, darum nur so oberflächliche Angaben)
- Die Einstellung in den Extras-Optionen (also 'With Options') würde
ich nicht verstellen und immer auf 'Drucker Vorgaben' oder wie das
heisst lassen.
- Die Papierschachtwahl kannst du über 'Datei -> Seite einrichten...
-> Register Papierzufuhr' machen. Dort kannst du auch unterschiedliche
Schächte für die «erste Seite» und alle «übrigen Seiten» definieren.
Das ganze kannst du jetzt natürlich auch aufzeichnen und entsprechend
abspecken. Du findest den Zeilen in deinem Makro '.FirstPaperTray' und
'.OtherPaperTray' (heisst der wirklich so, vor lauter Intelisense usw.
weiss man ja die Befehle nicht mehr auswendig ;-)
Alles klar?
Gruss
Thomas
Lutz Gentkow
siehe in der Onlinehilfe die DefaultTrayID-Eigenschaften zu
Options.DefaultTray.
Viele Grüße vom Niederrhein
Lutz
Thomas Gahler
> siehe in der Onlinehilfe die DefaultTrayID-Eigenschaften zu
> Options.DefaultTray.
Die Papierschachtsteuerung macht man wirklich nicht über die 'Options',
dafür ist der 'PageSetup' da.
--
Umgebung: Office 97, SP2 | VB 6.0 | NT 4.0, SP6
--------------------------------------------
Greetings from Switzerland
Thomas Gahler
Martin Worm
<wurze...@SPAM.bluemail.ch> wrote:
>
>Die Papierschachtsteuerung macht man wirklich nicht über die 'Options',
>dafür ist der 'PageSetup' da.
>
hallo Thomas,
was machst du bei kennwortgeschützten Dokumenten, deren Passwort du nicht
kennst? Da ist nix mit PageSetup, da geht nur Options mW
mfG
-
E-Mail von Martin Worm, Karlsruhe, Deutschland
Adresse: marti...@karlsruhe.netsurf.de
benutze Word2000(9.0.2812)Win ME
Thomas Gahler
> was machst du bei kennwortgeschützten Dokumenten, deren Passwort du nicht
> kennst? Da ist nix mit PageSetup, da geht nur Options mW
Ok, diesen Einwand kann ich akzeptieren.
--
- NT 4.0, SP6 | Office 97, SP2 | VB 6.0
--------------------------------------------------
Martin Worm
<wurze...@SPAM.bluemail.ch> wrote:
>Ok, diesen Einwand kann ich akzeptieren.
hallo Thomas,
das beruhigt mich. Ich dachte eine Zeitlang, daß ich mir da unnötigen
Codeballast aufgehalst habe.
(mache das nämlich aus den erwähnten Gründen so)
Matthias Noack
ich habe ebenfalls ein Problem mit der Ansteuerung der Druckerschächte und
bin bislang auf keine richtige Lösung gekommen.
Eins vorweg: Mit VBA habe ich ansonsten nicht viel zu tun, sondern mehr mit
vb. Also verzeiht mir evtl. "peinliche" Fragen.
Nun zum Problem: Ich erstelle in Word die verschiedensten Briefe und bringe
nach der Erstellung eine Dialogmaske in der User unter anderem den
Papierschacht für die erste Seite und die übrigen Seiten einstellen kann
(wie unter "Seite einrichte" - "Papierzufuhr"). Diese Einstellungen habe ich
über "Makro aufzeichnen" usw. erfahren.
Daher habe ich auch die Einstellmöglichkeiten "wdPrinterUpperBin",
wdPrinterLowerBin" und "wdPrinterManualFeed" (mein Drucker "HP Laserjet 5M".
Das klappt bei mir und den meisten Usern auch.
Jetzt gibt es aber auch User die haben andere Drucker, z.B. den "HP Laserjet
4000". Diese haben mehr Papierschächte und schon klappt die Anwahl nicht.
Hier habe ich herausgefunden, haben die Papierschächte auch andere
Bezeichnungen (Zahlen). Jetzt klappt die ganze Papiersteuerung nicht mehr.
Was kann ich tun? Oder kann mir jemand sagen, wie ich für den aktuellen
Drucker die "Namen der Papierschächte" ermitteln kann, wie Sie direkt bei
Word unter "Seite einrichten" - "Papierzufuhr" angezeigt werden. Somit
könnte ich diese Daten dann in die Combo-Boxen einfügen und auswählen
lassen. Dazu bräuchte ich dann auch die entsprechenden Werte, welche ich
dann im Makro als Wert für "FirstPageTray" und "OtherPageTray" einstellen
muss.
Ich hoffe, ihr versteht mich und könnt mir helfen.
Im voraus besten Dank, Matthias
Thomas Gahler
> Was kann ich tun? Oder kann mir jemand sagen, wie ich für den aktuellen
> Drucker die "Namen der Papierschächte" ermitteln kann, wie Sie direkt bei
> Word unter "Seite einrichten" - "Papierzufuhr" angezeigt werden.
Da du ja VB kannst mittels API auuf den Druckertreiber zugreifen
Oder für alle Drucker und deren Papierfächer die Möglichkeiten mittels eines
Makros aufzeichen dann hast du die Werte. Ich habe sie dir gelich
mitgeleifert. Ich habe diese Arbeits ja auch schon mal gemacht.
Das ganze habe ich dann in eine .Ini-Datei gespeichert. Hier den wichtigsten
Teil für dich daraus.
;--------- Vorbereitete
Drucker ---------------------------------------------------------
; - HP LaserJet III
; - HP LaserJet IIID
; - HP LaserJet 4
; - HP LaserJet 4Si
; - HP LaserJet 4Plus
; - HP LaserJet 4V
; - HP LaserJet 5P
; - HP LaserJet 5
; - HP LaserJet 6P
; - HP LaserJet 2100
; - HP LaserJet 4000xx
; - HP LaserJet 4050xx
; - HP DeskJet 2500CM
; - Epson EPL5600
; [\\Server\Queue]
; Typ=HP LaserJet III
; Papierschacht=Standardschacht, Oberer Schacht, Manueller Einzug, Manueller
Briefumschlag, Umschlag
; Standardschacht=0 ;wdPrinterDefaultBin
; Oberer Schacht=1 ;wdPrinterUpperBin
; Manueller Einzug=4 ;wdPrinterManualFeed
; Manueller Breifumschlag=6 ;wdPrinterManualEnvelopeFeed
; Umschlag=5 ;wdPrinterEnvelopeFeed
; [\\Server\Queue]
; Typ=HP LaserJet IIID
; Papierschacht=Standardschacht, Automatische Auswahl, Oberer Schacht,
Unterer Schacht, Manueller Einzug, Manueller Briefumschlag, Umschlag
; Standardschacht=0 ;wdPrinterDefaultBin
; Automatische Auswahl=265
; Oberer Schacht=1 ;wdPrinterUpperBin
; Unterer Schacht=2 ;wdPrinterLowerBin
; Manueller Einzug=4 ;wdPrinterManualFeed
; Manueller Breifumschlag=6 ;wdPrinterManualEnvelopeFeed
; Umschlag=5 ;wdPrinterEnvelopeFeed
; [\\Server\Queue]
; Typ=HP LaserJet 4 («HP LaserJet 4Plus» muss installiert sein)
; Papierschacht=Standardschacht, Automatische Auswahl, Oberer Schacht,
Unterer Schacht, Grosskassette, Manueller Einzug, Umschlag
; Standardschacht=0 ;wdPrinterDefaultBin
; Automatische Auswahl=265
; Oberer Schacht=1 ;wdPrinterUpperBin
; Unterer Schacht=2 ;wdPrinterLowerBin
; Manueller Einzug=4 ;wdPrinterManualFeed
; Grosskassette=11 ;wdPrinterLargeCapacityBin
; Umschlag=5 ;wdPrinterEnvelopeFeed
; [\\Server\Queue]
; Typ=HP LaserJet 4si
; Papierschacht=Standardschacht, Automatische Auswahl, Oberer Schacht,
Unterer Schacht, Manueller Einzug, Umschlag
; Standardschacht=0 ;wdPrinterDefaultBin
; Automatische Auswahl=265
; Oberer Schacht=1 ;wdPrinterUpperBin
; Unterer Schacht=2 ;wdPrinterLowerBin
; Manueller Einzug=4 ;wdPrinterManualFeed
; Umschlag=5 ;wdPrinterEnvelopeFeed
; [\\Server\Queue]
; Typ=HP LaserJet 4Plus
; --> Parameter von «HP LaserJet 4» übernehmen.
; [\\Server\Queue]
; Typ=HP LaserJet 4V
; Papierschacht=Standardschacht, Automatische Auswahl, Oberer Schacht,
Unterer Schacht, Grosskassette, Manueller Einzug
; Standardschacht=0 ;wdPrinterDefaultBin
; Automatische Auswahl=265
; Oberer Schacht=1 ;wdPrinterUpperBin
; Unterer Schacht=2 ;wdPrinterLowerBin
; Manueller Einzug=4 ;wdPrinterManualFeed
; Grosskassette=11 ;wdPrinterLargeCapacityBin
; [\\Server\Queue]
; Typ=HP LaserJet 5P («HP LaserJet 4Plus» muss installiert sein)
; --> Parameter von «HP LaserJet 4» übernehmen.
; WICHTIG: Papierzufuhr im Standarddrucker als «Unterer Schacht»
festlegen.
; [\\Server\Queue]
; Typ=HP LaserJet 5
; Papierschacht=Standartschacht, Automatisch auswählen, Automatischer
Einzug, Fach 1 (Mehrzweckfach), Man. Zufuhr, Fach 2 (Kassette),
Briefumschlagseinzug, Fach 3 (untere Kassette)
; Standardschacht=0 ;wdPrinterDefaultBin
; Automatisch auswählen=15 ;wdPrinterFormSource
; Automatischer Einzug=261
; Fach 1 (Mehrzweckfach)=262
; Man. Zufuhr=263
; Fach 2 (Kassette)=264
; Briefumschlagseinzug=5 ;wdPrinterEnvelopeFeed
; Fach 3 (untere Kassette)=265
; [\\Server\Queue]
; Typ=HP LaserJet 6P («HP LaserJet 4Plus» muss installiert sein)
; --> Parameter von «HP LaserJet 4» übernehmen.
; WICHTIG: Papierzufuhr im Standarddrucker als «Unterer Schacht»
festlegen.
; [\\Server\Queue]
; Typ=HP LaserJet 2100
; Papierschacht=Standardschacht, Fach 1, Fach 2, Manuelle Zufuhr, Erstes
verfügbares Fach
; Standardschacht=0 ;wdPrinterDefaultBin
; Fach 1=1 ;wdPrinterUpperBin
; Fach 2=2 ;wdPrinterLowerBin
; Manuelle Zufuhr=4 ;wdPrinterManualFeed
; Erstes verfügbares Fach=7 ;wdPrinterAutomaticSheetFeed
; [\\Server\Queue]
; Typ=HP LaserJet 4000xx
; Papierschacht=Standardschacht, Automatischer Einzug, Manuelle Zufuhr,
Normal, Vordruckpapier, Briefkopfpapier, Transparentfolie, Vorgelochtes
Papier, Etiketten, Briefpapier, Recyclingpapier, Farbpapier, Karton,
Rauhpapier, Fach 1, Fach 2, Fach 3, Fach 4
; Standardschacht=0 ;wdPrinterDefaultBin
; Automatischer Einzug=7 ;wdPrinterAutomaticSheetFeed
; Manuelle Zufuhr=4 ;wdPrinterManualFeed
; Normal=258
; Vordruckpapier=259
; Briefkopfpapier=260
; Transparentfolie=261
; Vorgelochtes Papier=262
; Etiketten=263
; Briefpapier=264
; Recyclingpapier=265
; Farbpapier=266
; Karton=267
; Rauhpapier=268
; Fach 1=1 ;wdPrinterUpperBin
; Fach 2=2 ;wdPrinterLowerBin
; Fach 3=11 ;wdPrinterLargeCapacityBin
; Fach 4=14 ;wdPrinterPaperCassette
; [\\Server\Queue]
; Typ=HP LaserJet 4050xx
; Papierschacht=Standardschacht, Normal, Vordruckpapier, Briefkopfpapier,
Transparentfolie, Vorgelochtes Papier, Etiketten, Briefpapier,
Recyclingpapier, Farbpapier, Karton, Rauhpapier, Automatischer Einzug,
Manuelle Zufuhr, Fach 1, Fach 2, Fach 3, Fach 4
; Standardschacht=0 ;wdPrinterDefaultBin
; Normal=16640
; Vordruckpapier=16641
; Briefkopfpapier=16642
; Transparentfolie=16643
; Vorgelochtes Papier=16644
; Etiketten=16645
; Briefpapier=16646
; Recyclingpapier=16647
; Farbpapier=16648
; Karton=16649
; Rauhpapier=16650
; Automatischer Einzug=7 ;wdPrinterAutomaticSheetFeed
; Manuelle Zufuhr=4 ;wdPrinterManualFeed
; Fach 1=1 ;wdPrinterUpperBin
; Fach 2=2 ;wdPrinterLowerBin
; Fach 3=11 ;wdPrinterLargeCapacityBin
; Fach 4=14 ;wdPrinterPaperCassette
; [\\Server\Queue]
; Typ=HP DeskJet 2500CM
; Papierschacht=Standardschacht, Autom. Auswahl, Fach 1, Fach 2, Fach 3,
Hint. manuell. Einzug
; Standardschacht=0 ;wdPrinterDefaultBin
; Autom. Auswahl=7 ;wdPrinterAutomaticSheetFeed
; Fach 1=3 ;wdPrinterMiddleBin
; Fach 2=1 ;wdPrinterUpperBin
; Fach 3=2 ;wdPrinterLowerBin
; Hint. manuell. Einzug=4 ;wdPrinterManualFeed
; [\\Server\Queue]
; Typ=Epson EPL5600 («HP LaserJet 4Plus» muss installiert sein)
; --> Parameter von «HP LaserJet 4» übernehmen.
Matthias Noack
Tausend Dank! Damit hast Du mir sehr geholfen :-)!
Ciao, Matthias
[snip...]
> Oder für alle Drucker und deren Papierfächer die Möglichkeiten mittels
eines
> Makros aufzeichen dann hast du die Werte. Ich habe sie dir gelich
> mitgeleifert. Ich habe diese Arbeits ja auch schon mal gemacht.
>
> Das ganze habe ich dann in eine .Ini-Datei gespeichert. Hier den
wichtigsten
> Teil für dich daraus.
[snip]