Druckbereiche und Druckerauswahl -thePrintManager-

[d'r Bastler]

Moin allerseits,

aktuell gibt es den seltenen Fall, dass mal ein (noch ein wenig ungeübter) Nutzer tatsächlich alle seine Daten in einem Sheet versammelt hat und daraus über Druckbereiche bestimmte Teile ins PDF bzw. zu Papier bringen will. Dafür erst einmal großes Lob, denkt da jemand im ersten Schritt offenbar tatsächlich in Daten und erst im zweiten in Papier. Klasse!

Ein erster Anhang hier stellt einen einfachen Vorschlag zur Lösung vor: Eine USF, in der für das aktive Sheet ein Druckbereich ausgewählt werden kann und dann an den Standarddrucker gesendet wird. Neben dem Import der Dateien aus der ZIP wird in DieseArbeitsmappe folgender Code gebraucht:

Code: Alles auswählen

Option Explicit
Private Sub Workbook_Open()
    Application.OnKey "{F12}", "ShowUSF"
End Sub

usfPrnArea.zip

(1.07 KiB) Noch nie heruntergeladen

Die Druckbereichsnamen und Druckbereiche können im Code der USF in den Zeilen 5 und 24 leicht angepasst werden.

Den nächsten Schritt stellt dann thePrintManager dar. In ihm wird die USF um folgende Funktionen ergänzt: Es werden alle verfügbaren Drucker eingelesen und Druckbereiche direkt über TextBoxen eingegeben werden. Den gibt's dann als neuen Post später hier.

Viel Spaß und Grüße

[d'r Bastler]

Okay, auf zur zweiten Runde:

was diese Weiterentwicklung kann, habe ich oben beschrieben. Hier nun also die ZIP mit den neuen Versionen.

thePrintManager.zip

(5.77 KiB) Noch nie heruntergeladen

Installation: Eine leere Arbeitsmappe als .XLSB, alle vier Dateien aus der ZIP importieren, ein paar Beispieldaten malen und los geht's.
Die manuelle Eingabe von Druckbereichen liefere ich gerne auf Anfrage nach. Schien mir nicht mehr so relevant zu sein.

Viel Spaß damit!

[Opelgerd]

Moin

Vielen Danke.

Werde da heute Abend mal mit spielen.

Grüße Klemens

[d'r Bastler]

Moin Klemens,

für die Einbindung des neuen Codes kannst Du Dich einfach an die Anleitung auf Office-Hilfe halten. Die neue Version beinhaltet zwar auch den Code für DieseArbeitsmappe (also eine Datei mehr). In einer leeren Mappe ist das aber kein Problem.

lg