Ansteuern der Druckereigenschaften über VBA
Andrea Marmaetzschke
Ich brauche ein Makro, das nach entsprechenden Eingaben über ein Formular
die Eigenschaften des im Formular ausgewählten gewählten Druckers ändert,
z.B. Hoch-/Querformat und Duplex-/Simplexdruck.
Wie kann ich über VBA auf die Druckereigenschaften zugreifen ?????
mfg
Andrea
Lutz Gentkow
am einfachsten ist es, ein entsprechendes Makro aufzuzeichnen und
anschließend per Hand zu modifizieren, s. auch Hilfe zu PrintOut.
Allerdings hast Du meimes Wissens per VBA nicht Zugriff auf alle
Druckereigenschaften, da diese nicht standardisiert sind. Die
Seitenausrichtung kannst Du auch über Seite einrichten bzw. PageSetup
festlegen.
Viele Grüße vom Niederrhein
Lutz
Share what you know, learn what you don´t !
Andrea Marmaetzschke
Danke für die Antwort.
Das mit dem Hoch- und Querformat geht auch über "Seite einrichten", da hast
Du Recht,
aber trotzdem bräuchte ich auch den Zugriff auf die Eigenschaft, ob
Duplex-oder Simplexdruck.
Wenn es von Word über den "dialogs(wdDialogFilePrint)" möglich ist, in die
Druckereigenschaften zu kommen,
dann müßte es doch auch möglich sein, über VBA da reinzukommen.
Leider zeichnet ein Makro diesen Schritt nicht mehr auf.
Viele Grüße
Andrea
Lutz Gentkow <e...@kohlschein.de> schrieb in im Newsbeitrag:
39F0298A...@kohlschein.de...
Lutz Gentkow
Hallo Andrea,
> Leider zeichnet ein Makro diesen Schritt nicht mehr auf.
Jo, das ist immer ein schlechtes Zeichen :-( Letzte Möglichkeit in
solchen Fällen ist die SendKey-Anweisung.
Lutz
Andrea Marmaetzschke
ich hab was bei msdn.microsoft gefunden,
da wird das Duplex-Setting über API gemacht.
Das Beispiel hat allerdings bei mir nicht funktioniert.
Ich habe als Vorlage ein altes Makro aus WordBasic,
dort wird auch viel mit SendKeys gemacht,
ich befürchte fast, das muß ich auch anwenden.
Danke für Deinen Rat
Andrea
Lutz Gentkow <e...@kohlschein.de> schrieb in im Newsbeitrag:
39F038CA...@kohlschein.de...
Jürgen Kotterer
hast du eine Loesung des Problems gefunden? Ich kaempfe auch schon eine Weile
mit dieser Problematik und bin leider bislang auf keine Loesung gekommen.
Gruss Juergen
Andrea Marmaetzschke schrieb:
Lutz Gentkow
ohne SendKeys wird´s wohl nix :-( In der Hilfe zur PrintOut-Methode ist
zwar eine Option ManualDuplexPrint vorgesehen, aber leider :
"Wird nicht in der deutschen Version von Microsoft Word verwendet" :-(
Andrea Marmaetzschke
bin immernoch am basteln der Lösung, wenn es geht, geht es nur über eine
API-Funktion.
Es gibt bei Microsoft.com in der MSDN den Artikel Q230743 (Howto set Duplex
Printing for Word Automation)
mit einem Beispiel, allerdings hat dieses Beispiel bei meinem Drucker nicht
so ganz funktioniert (ich hoffe noch nicht).
Bin jetzt gerade dabei dem nachzuhelfen. Ansonsten findet man bei der
Recherche im Internet viele, die genau das gleiche Problem
haben, aber keine Lösung dazu.
Gruß Andrea
Jürgen Kotterer <kott...@dz41.ukl.uni-freiburg.de> schrieb in im
Newsbeitrag: 39F6B873...@dz41.ukl.uni-freiburg.de...
Jürgen Kotterer
ich habe zwei Prozeduren geschrieben mit denen es bei mir funktioniert:
Sub DruckDuplex()
SendKeys ("%H") 'Aufruf Eingenschaftsmenü des Druckers
SendKeys ("%L") 'Umstellung Duplex
SendKeys ("~") 'Enter
SendKeys ("TAB 9") 'Focus auf Schliesenschaltfläche
SendKeys ("~") 'Enter
Dialogs(wdDialogFilePrint).Display
End Sub
Sub DruckSimplex()
SendKeys ("%H") 'Aufruf Eingenschaftsmenü des Druckers
SendKeys ("%K") 'Umstellung Simplex
SendKeys ("~") 'Enter
SendKeys ("TAB 9") 'Focus auf Schliesenschaltfläche
SendKeys ("~") 'Enter
Dialogs(wdDialogFilePrint).Display
End Sub
Gruss Juergen
Andrea Marmaetzschke schrieb:
--
Mit freundlichen Grüßen
Jürgen Kotterer
_________________________________________
Juergen Kotterer
Universitaetsklinikum
Geschaeftsbereich 4
DV-Koordination
Breisacherstr. 62
79106 Freiburg
Email: kott...@dz41.ukl.uni-freiburg.de
Tel.: 0761/270-2089 FAX: 0761/270-2080
________________________________________
Andrea Marmaetzschke
danke für die Beispiele,
so ähnlich funktioniert es mit den Sendkeys auch bei mir, nur gibt es dabei
ein Problem:
man muß genau die Tastenkombination für die Umstellung auf Duplex-Druck
kennen (bei mir z.B. Alt+G), und die
ist bei den meisten Druckern allerdings unterschiedlich.
Man soll sich aber aus einer Liste aller installierten Drucker einen
aktuellen auswählen können und den gegebenfalls
auf Duplex-Druck umstellen (sofern dieser sowas unterstützt).
Dann müßte ich aber alle installierten Drucker im voraus kennen und alle
"HotKeys" für den Duplex-Druck und deshalb
wäre eine Ansteuerung ohne Sendkey besser.
Viele Grüße
Andrea
Jürgen Kotterer <kott...@dz41.ukl.uni-freiburg.de> schrieb in im
Newsbeitrag: 3A01711A...@dz41.ukl.uni-freiburg.de...
Thomas Gahler
...und bei Sendkey kommt noch das Sprachproblem hinzu, hat jemand einen
englischen Druckertreiber installiert, dann bist du mit deinen
Buschstaben bereits am Ar...
Aber 'ibby' schrieb im forum 'microsoft.public.word.word97vba'
folgendes zum gelichen Thema:
Take a look at the following article on MSDN:
<http://support.microsoft.com/support/kb/articles/Q230/7/43.ASP>
--
Greetings from Switzerland...
Thomas Gahler
In article <8u8olp$loc$07$1...@news.t-online.com>,
"Andrea Marmaetzschke" <amarmae...@softmate.de> wrote:
> Hallo Jürgen,
> danke für die Beispiele,
> so ähnlich funktioniert es mit den Sendkeys auch bei mir, nur gibt es
dabei
> ein Problem:
> man muß genau die Tastenkombination für die Umstellung auf Duplex-
Druck
> kennen (bei mir z.B. Alt+G), und die
> ist bei den meisten Druckern allerdings unterschiedlich.
> Man soll sich aber aus einer Liste aller installierten Drucker einen
> aktuellen auswählen können und den gegebenfalls
> auf Duplex-Druck umstellen (sofern dieser sowas unterstützt).
> Dann müßte ich aber alle installierten Drucker im voraus kennen und
alle
> "HotKeys" für den Duplex-Druck und deshalb
> wäre eine Ansteuerung ohne Sendkey besser.
>
> Viele Grüße
> Andrea
>
> Jürgen Kotterer <kott...@dz41.ukl.uni-freiburg.de> schrieb in im
> Newsbeitrag: 3A01711A...@dz41.ukl.uni-freiburg.de...
> > Hallo Andrea,
> >
> > ich habe zwei Prozeduren geschrieben mit denen es bei mir
funktioniert:
> >
> > Sub DruckDuplex()
> > SendKeys ("%H") 'Aufruf Eingenschaftsmenü des Druckers
> > SendKeys ("%L") 'Umstellung Duplex
> > SendKeys ("~") 'Enter
> > SendKeys ("TAB 9") 'Focus auf Schliesenschaltfläche
> > SendKeys ("~") 'Enter
> > Dialogs(wdDialogFilePrint).Display
> > End Sub
> >
> > Sub DruckSimplex()
> > SendKeys ("%H") 'Aufruf Eingenschaftsmenü des Druckers
> > SendKeys ("%K") 'Umstellung Simplex
> > SendKeys ("~") 'Enter
> > SendKeys ("TAB 9") 'Focus auf Schliesenschaltfläche
> > SendKeys ("~") 'Enter
> > Dialogs(wdDialogFilePrint).Display
> > End Sub
> >
> > Gruss Juergen
> >
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
Jürgen Kotterer
bei mir stellt sich dieses Problem nicht, da ich in meiner Abteilung an
allen Arbeitsplaetzen die gleiche Umgebung (identische Drucker mit
deutschen Treibern) habe.
Gruss und Danke
Juergen
Thomas Gahler schrieb:
> > Andrea
> >
> > Jürgen Kotterer <kott...@dz41.ukl.uni-freiburg.de> schrieb in im
> > Newsbeitrag: 3A01711A...@dz41.ukl.uni-freiburg.de...
> > > Hallo Andrea,
> > >
> > > ich habe zwei Prozeduren geschrieben mit denen es bei mir
> funktioniert:
> > >
> > > Sub DruckDuplex()
> > > SendKeys ("%H") 'Aufruf Eingenschaftsmenü des Druckers
> > > SendKeys ("%L") 'Umstellung Duplex
> > > SendKeys ("~") 'Enter
> > > SendKeys ("TAB 9") 'Focus auf Schliesenschaltfläche
> > > SendKeys ("~") 'Enter
> > > Dialogs(wdDialogFilePrint).Display
> > > End Sub
> > >
> > > Sub DruckSimplex()
> > > SendKeys ("%H") 'Aufruf Eingenschaftsmenü des Druckers
> > > SendKeys ("%K") 'Umstellung Simplex
> > > SendKeys ("~") 'Enter
> > > SendKeys ("TAB 9") 'Focus auf Schliesenschaltfläche
> > > SendKeys ("~") 'Enter
> > > Dialogs(wdDialogFilePrint).Display
> > > End Sub
> > >
> > > Gruss Juergen
> > >
> >
> >
>
Thomas Gahler
Es ist schon klar. Es gibt immer die glücklichen mit einer homogenen
Umgebung und die weniger glücklichen mit einer herterogenen Umgebung.
War ja nur so als allgemkeiner Hinweis gedacht.
Kommt aber noch hinzu, dass Sendkey eigentlich nur ein Gebastel für
Notlösungen ist (möchte aber niemanden zu nahe treten) und die
Verwenung von APIs meistens Unabhängigkeit und Flexibilität bedeutet.
Könnte ja sein, dass bei dir auch einmal ein zusätzlicher Druckertyp
installiert wird. Ist dein Makro schon auf solche Möglichkeiten
vorbereitet? ;-)
--
Greetings from Switzerland...
Thomas Gahler
In article <3A09790F...@dz41.ukl.uni-freiburg.de>,
=?iso-8859-1?Q?J=FCrgen?= Kotterer <kott...@dz41.ukl.uni-
> > > Andrea
> > >
> > > Jürgen Kotterer <kott...@dz41.ukl.uni-freiburg.de> schrieb in im
> > > Newsbeitrag: 3A01711A...@dz41.ukl.uni-freiburg.de...
> > > > Hallo Andrea,
> > > >
> > > > ich habe zwei Prozeduren geschrieben mit denen es bei mir
> > funktioniert:
> > > >
> > > > Sub DruckDuplex()
> > > > SendKeys ("%H") 'Aufruf Eingenschaftsmenü des
Druckers
> > > > SendKeys ("%L") 'Umstellung Duplex
> > > > SendKeys ("~") 'Enter
> > > > SendKeys ("TAB 9") 'Focus auf Schliesenschaltfläche
> > > > SendKeys ("~") 'Enter
> > > > Dialogs(wdDialogFilePrint).Display
> > > > End Sub
> > > >
> > > > Sub DruckSimplex()
> > > > SendKeys ("%H") 'Aufruf Eingenschaftsmenü des Druckers
> > > > SendKeys ("%K") 'Umstellung Simplex
> > > > SendKeys ("~") 'Enter
> > > > SendKeys ("TAB 9") 'Focus auf Schliesenschaltfläche
> > > > SendKeys ("~") 'Enter
> > > > Dialogs(wdDialogFilePrint).Display
> > > > End Sub
> > > >
> > > > Gruss Juergen
> > > >
> > >
> > >
> >
Lutz Gentkow
Hallo Thomas,
nicht jeder ist ein so toller Autodidakt wie Du und porkelt im API rum
;-)
Thomas Gahler
weiterhelfen. Habe ja noch einen _guten_ Tip bei dir offen ;-)
--
Greetings from Switzerland...
Thomas Gahler
In article <3A0A59B1...@kohlschein.de>,
Sent via Deja.com http://www.deja.com/
Before you buy.
Lutz Gentkow
Hallo Thomas,
weiß ich ! Aber da ich zu dem Thema nicht viel beitragen kann, hab ich
mich clevererweise zurückgehalten. Außerdem hast Du Deinen Joker noch
nicht gesetzt ...
Thomas Gahler
> weiß ich ! Aber da ich zu dem Thema nicht viel beitragen kann, hab
> ich mich clevererweise zurückgehalten.
'Nicht viel' zum Thema beitragen ist aber ein bisschen mehr als 'nichts
beitragen'. Was hast also noch in den Hirnwindungen versteckt und gibst
es nicht Preis ;-)
> Außerdem hast Du Deinen Joker noch nicht gesetzt ...
Weiss nicht welchen ich nehmen soll (den 'Fifty-fifty', 'das Publikum'
oder 'den Anruf') :-))) Und die Jokers sollte man sich ja für wirklich
knifflige Frage aufsparen.
--
Greetings from Switzerland...
Thomas Gahler
Sent via Deja.com http://www.deja.com/
Before you buy.
Lutz Gentkow
also "Anruf" scheidet definitiv aus ! Und wenn das nicht knifflig ist,
was dann ? Bin bei meinen Recherchen im Internet und in eigenen
Unterlagen leider auf nichts gestoßen, was über das hinausgeht, was Du
ohnehin schon weißt :-(
Viele Grüße
Lutz
Thomas Gahler
> Bin bei meinen Recherchen im Internet und in eigenen Unterlagen
> leider auf nichts gestoßen, was über das hinausgeht, was Du
> ohnehin schon weißt :-(
Sieht so aus als ob ich meinen Jocker zu einem anderen Zeitpunkt zum
Einsatz bringen muss ;-)
Trotzdem danke für deine Bemühungen, allen andern natürlich auch ein
Dank.
--
Greetings from Switzerland...
Thomas Gahler
Sent via Deja.com http://www.deja.com/
Before you buy.