Drucker (Spielereien)

[thowe]

Hallöchen,
nach etwas Abwesenheit nun eine kleine Spielerei mit "Drucker"
Es ist angedacht - mit der Zeit - das in dieser Arbeitsmnappe enthaltene Modul mdlPRINTERSnoch weiterauszubauen.

Für das Erste werden alle Drucker (Windows) im Arbeitsblatt "Tabelle1" aufgelistet.
Gleichzeitig werden alle Drucker in einem Control (Combobox, OLEObject) in Arbeitsblatt "Tabelle1" gelistet
Mit dem ebenfalls vorhandenen CommandButton im Arbeitsblatt (auch OLEObject) kann das Aktive Arbeitsblatt ausgedruckt werden.
WICHTIG!
Wenn der Druckauftrag (systemeigener Druckdialog) abgebrochen wird, dann läuft der VBA Code in einen Runtime Error. Eine Exception ist nicht eingebaut.

PrinterPlayArounds_VBAsteleien.de.xlsm

(34.94 KiB) Noch nie heruntergeladen

Viel Spaß & LG

[d'r Bastler]

Moin thowe,

und ich bemühe mich täglich Papierdruck zu vermeiden, wo immer ich kann ...

Dein Code ist eine interessante Grundlage für eine intelligente Drucker-Steuerung. Damit lassen sich noch viele nützliche Dinge vbasteln.

Danke dafür!

lg

[thowe]

Hallo Heb,

danke.
Muss nicht immer Papierdruck sein, kann auch .pdf Export sein...
Daran ist auch gedacht, an eine Druckersteuerung.
Also bitte "Wunschliste" hier posten....
-> ich erde versuchen in - kürzeren - Zeitintervallen, das eine und/oder andere einzubauen

lg

[d'r Bastler]

Moin thowe und allerseits,

man nehme: Einen Frauenarzt, der einer jungen werdenden Mutter 1. einen Brief schreiben , 2. ein Rezept ausstellen und 3. ein Bild vom Fötus präsentieren möchte. Der gute Mann verwaltet all dies in XL (warum auch immer er das tun sollte, denn schließlich gibt es für seine Zunft ja sündhaft teure Branchen-Software) und will für jede Art Dokument den passenden Drucker ansprechen. Korrespondenz zum Laser, Rezept zum Nadel und Bild zum Tintenstrahler.
Man könnte auch ein anderes Beispiel konstruieren: Rechnungen eines Online-Händler werden direkt in die Buchhaltung geschickt, Lieferscheine in den Warenausgang und Berichte zum Chef.

Dazu habe ich thowes Idee mal ein bisschen ausgearbeitet und ein kleines Tool gebastelt, mit dem man einem Tabellenblatt jeweils den geeigneten Drucker zuordnen kann. Es lässt sich bequem in vorhandene WorkBooks einbauen und nach der Zuordnung auch wieder löschen.

Wie funktionert's? Im Makro-Menü (Alt+F8) erscheinen zwei neue Einträge: MapPrinter und PrintThisSheet. Der erste öffnet eine kleine UserForm, die in zwei Comboboxen alle im WorkBook vorhandenen Sheets einliest, in der zweiten alle installierten Drucker. Man wählt beides aus, klickt auf Map und schon ist ein Drucker einem Sheet zugeordnet und kann mit PrintThisSheet genutzt werden. Mit Clear werden alle Zuordnungen gelöscht.

Wie bekommt man die Bastelei an den Start? Indem man die unten angefügte ZIP-Datei extrahiert und die drei enthaltenen Dateien nach VBA importiert. (Man kann sie sich auch vorher per Texteditor anschauen.) Dazu öffnet man mit Alt-F11 den VB-Editor, klickt mit der rechten Maustaste im Fenster Projekt-VBA-Projekt ganz links und wählt Datei importieren (die man natürlich von hier heruntergeaden haben sollte ) aus. Im Projekt sind damit die Userform und ein Modul mdlPrinterMap aktiviert.

Will man die Userform wieder entsorgen, kann sie im VB-Editor einfach mit Rechtsklick entfernen. Das mdlPrinterMap genügt für die Zuordnung. Die drei Dateien außerhalb des Workbooks werden dann nicht mehr gebraucht.

usfPrinterMap.zip

(2.59 KiB) Noch nie heruntergeladen

In dieser Version wird jeweils ein Exemplar des Druckbereichs ausgedruckt. Wer hier spezielle Einstellungen braucht und es nicht selbst im mdl anpassen kann, darf sich gerne hier melden.

In diesem Sinne - viel Spaß damit! und schöne Grüße!

[thowe]

Hallo Heb,

danke einmal für den "Ausbau"
Faszinierend der Anwendungsfall.

Hab das Mal auf Excel 365 getestet.

Egal was ich "mappe", letztendlich zieht er (Excel) mir immer den ersten Drucker,nicht mal den Standardrucker...
-> was macht da meinereiner falsch...?
-> wie könnte ich das für dich reproduzierbar machen?


LG

[d'r Bastler]

Moin thowe,

Obwohl Sie VBA-Makros (Visual Basic for Applications) in Excel für das Web nicht erstellen, ausführen oder bearbeiten können, können Sie eine Arbeitsmappe öffnen und bearbeiten, die Makros enthält. Alle vorhandenen Makros verbleiben in der Arbeitsmappe, und Sie können die Arbeitsmappe in der Excel-Desktop-App öffnen, um die Makros anzuzeigen und zu bearbeiten

meint M$ ...

365 spielt lieber mit neuen Formeln ... Echtes XL/VBA ist immer noch nicht im Abo.
Grüße

[thowe]

Hallo Heb,

danke für den Hinweis zu MS Office 365.
Nun mit "ordentlichem, anständigem " Excel.

Ich habe eine kleine Erweiterung hinzugefügt:
Function GetDefaultPrinter()

Ich denke mir, das man - sicherheitshalber - den aktuell eingestellten Standarddrucker temporär speichern soll und nach der Nutzung dieser usfPrinterMap wieder einstellen soll(te).

Standdarddrucker wird auch bei Aufrung der usfPrinterMap dargestellt.

usfPrinterMap-Erweiterung001-DefaultPrinter.zip

(3.38 KiB) Noch nie heruntergeladen

LG

[d'r Bastler]

Moin thowe,

danke für die sehr guten, sehr berechtigten Hinweis auf den Standarddrucker. Ich möchte mir die Watsch'n nicht vorstellen, die Chefs verteilen, wenn auf einmal Lieferscheine auf GlossyPaper aus dem Tintenspritzer quellen

Bei mir ist auch bereits eine Weiterentwicklung in der Mache und ich werde Deinen Hinweis gerne berücksichtigen!

Grüße

[thowe]

Dann warte ich das mal ab!

NS: Achja, in der Provinz bin ich erst dieses Wochenende...

lg

[Paul1206]

Hallo miteinander,

anbei eine Lösung via Userform. Das Userform hatte ich mal für jemanden in einem anderen Forum zusammengestellt.

Gruß Uwe