Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Standarddrucker

Standarddrucker
25.02.2005 16:50:55
JoachimF
Ich stelle in einer Anwendung über Application.Dialogs(xlDialogPrinterSetup) die Möglichkeit einer Druckerauswahl zur Verfügung. Als zweite Druckoption stelle ich in der Anwendung den Usern die schnelle Möglichkeit zur Verfügung, über activesheet.PrintOut From:=1, To:=1 zu drucken. Leider wird dabei immer auf den zuletzt über application.dialogs(...) eingestellten Drucker gedruckt. Wie kann ich erreichen, daß in diesem Falle auf den Windows-Standarddrucker gedruckt wird? activeprinter hat sich auf die DIALOGS-Einstellung geändert, obwohl der Standarddrucker nicht verändert wurde.
vielleicht ist es ganz einfach, aber ich komme leider nicht drauf!
Vielen Dank schon jetzt für die Hilfe...

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Standarddrucker
ransi
hallo joachim
activePrinter hat lese-und schreibzugriff.
d.h. theoretisch müsste dies gehn:
activePrinter="HP was weiss denn ich"
activesheet.PrintOut From:=1 to 1
ransi
AW: Standarddrucker
28.02.2005 09:31:03
JoachimF
Vielen Dank für die spontane Antwort,
leider hat sie mir nicht helfen können. Ich weiß, dass ACTIVEPRINTER von mir beschrieben werden kann. Mein Problem ist, dass ich mit DIALOGS(xlDialogPrinterSetup) Anwendern eine Druckerauswahl zur Verfügung stelle und danach wieder auf den voreingestellten Standarddrucker drucken möchte, ohne diesen neu belegen zu müssen (da die Anwendung an vielen verschiedenen Plätzen mit verschiedenen Standarddruckern läuft, kann ich nicht im Code den Drucker vorgeben). XlDialogPrinterSetup ändert den Standarddrucker nicht - in Einstellungen/Drucker ist jedenfalls keine Veränderung zu beobachten. Trotzdem druckt ActivePrinter danach den unter XlDialogPrinterSetup eingestellten Drucker.
Ich hoffe, das alles klingt nicht zu durcheinander!!
Vielen Dank
JoachimF
Anzeige
ActivePrinter in variable
ransi
hallo joachim
speicher doch den activeprinter in einer variablen.
nach dem drucken setzt du die variable wieder als activeprinter.
Option Explicit
Public 

Sub t()
Dim drucker
drucker = Application.ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
activesheet.PrintOut From:=1, to 1
Application.ActivePrinter = drucker
'zur kontrolle:
'Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

ransi
AW: ActivePrinter in variable
28.02.2005 16:43:30
JoachimF
Hallo,
stimmt, das ist eine gute Idee! Ich hab's gleich probiert und es läuft fantastisch - danke! Die Dimensionierung der Variablen habe ich allerdings auf STRING gesetzt.
JoachimF
Anzeige
frreut mich...
ransi
hallo joachim
string ist ok.
war nur zu faul....
ransi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige