Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Druckerauswahl in VBA

297 views
Skip to first unread message

Frank Arendt-Theilen

unread,
Sep 13, 2000, 3:00:00 AM9/13/00
to
Hallo Uwe,
versuch es einmal mit der folgenden Anweisung:
Application.Dialogs(xlDialogPrinterSetup).Show

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de


Am Wed, 13 Sep 2000 12:51:33 +0200, schrieb "Uwe Zäpernick"
<u.zaep...@gmx.de> in microsoft.public.de.excel zu "Druckerauswahl
in VBA":

>Hallo
>
>Ich möchte gerne in VBA den Drucker wechseln und wollte mal nachfragen, ob
>jemand eine andere Möglichkeit kennt außer folgende:
>
>alter Standarddrucker ist Drucker 1
> Application.ActivePrinter = "Drucker5" - hier wird der Standarddrucker
>auf Drucker5 gesetzt
> ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
>"Drucker5", Collate:=True - hier wird ausgedruckt
> Application.ActivePrinter = "Drucker1" - hier wird der Drucker1 wieder
>als Standarddrucker eingestellt
>
>Dies ist alles recht umständlich wenn man Drucker löscht und neue anlegt, da
>sich dann der interne Name oder Reihenfolge ändert. Am liebsten wäre es mir,
>wenn man einfach \\servername\drucker angeben könnte.
>
>Vielen Dank für Eure Hilfe!


Uwe Zäpernick

unread,
Sep 13, 2000, 6:51:33 AM9/13/00
to
Hallo

Ich möchte gerne in VBA den Drucker wechseln und wollte mal nachfragen, ob
jemand eine andere Möglichkeit kennt außer folgende:

alter Standarddrucker ist Drucker 1
Application.ActivePrinter = "Drucker5" - hier wird der Standarddrucker
auf Drucker5 gesetzt
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
"Drucker5", Collate:=True - hier wird ausgedruckt
Application.ActivePrinter = "Drucker1" - hier wird der Drucker1 wieder
als Standarddrucker eingestellt

Dies ist alles recht umständlich wenn man Drucker löscht und neue anlegt, da
sich dann der interne Name oder Reihenfolge ändert. Am liebsten wäre es mir,
wenn man einfach \\servername\drucker angeben könnte.

Vielen Dank für Eure Hilfe!

--
Mit freundlichen Grüssen
Uwe Zäpernick


Rolf Califice

unread,
Sep 14, 2000, 12:15:31 AM9/14/00
to
Ist ´ne Weile her, daß ich es einsetzen mußte. IMO kann man mit
(xlDialogPrinterSetup) nur die Druckoptionen eines Druckers
einstellen, es ändert aber nicht den z.B Standarddrucker?

Hierzu ist doch
Application.Dialogs(xlDialogPrint).Show notwendig?

Frank, wer von uns beiden recht hat oder nicht
entscheidet nun das grüne Licht ;-))

Frank Arendt-Theilen <Thei...@t-online.de>,
veröffentlicht am Wed, 13 Sep 2000 23:59:35 +0200 u.a.:
>
> Application.Dialogs(xlDialogPrinterSetup).Show
>
>MfG Frank


>
>Am Wed, 13 Sep 2000 12:51:33 +0200, schrieb "Uwe Zäpernick"

><u.zaep...@gmx.de> zu "Druckerauswahl in VBA":


>>
>>Ich möchte gerne in VBA den Drucker wechseln und wollte mal nachfragen, ob


--
Gruß,

Rolf Ca.
http://www.pace-net.de
my self
www.califer.de

0 new messages