Druckereinstellungen via VBA festlegen

Hallo zusammen.

Ich habe folgendes Problem:

Ich möchte für eine bestimmte Datei, welche jeden Tag einen neuen Dateinamen erhält, die immer gleichen Druckeinstellungen verwenden.
Aktuell muss ich dies jeden Tag neu machen und das erscheint mir auf Dauer etwas zu umständlich.
Ich würde mir gerne im Menüband ein Icon generieren, welches den Code ausführt.
Folgende Einstellungen sollen gegeben sein:

Drucker auswählen
Format: A3, hoch
Skalierung: auf eine Seite einpassen
Nur markierten Bereich drucken
Seite horizontal und vertikal zentriert

Kann mir hierzu jemand mit einem Code helfen?

Besten Dank im Voraus

Grüße
Andy

 

Mit VBA wird es gar nichts.
Mit Visual Basic wirst Du graue Haare bekommen.

Eventuell kann es mit einer Windows-Verknüpfung etwas werden, in der Du die Einstellungen festlegst.

 

ungetestet ...hab gerade keinen Drucker zur Verfügung

 

Warum legst du dir nicht eine Kopie des Druckertreibers an, die deine Einstellungen beinhaltet? Dann brauchst du nur diesen Drucker auswählen.

 

Ich rate mal: was früher mit einem karnickelartig vermehrtem Druckertreiber saubequem war (hach ja&#8230 klappt schon viel zu lange nicht mehr (seufz).

Weiterhin behaupte ich mal frech, dass man mit Visual Basic die Bruchlandung produziert während VBA zu unserem Freund wird.

Der Code… Word, nicht wahr? Ich habe den dringenden Verdacht im Bauche, dass es hier um Excel geht…

Eric March

 

Naja, in dem Fall enttäusche ich dich mal und das gerne. Eines ist wohl richtig, mehrere Treibericons gibt es nicht mehr, wohl aber mehrere Einstellungen, die auch im Druckmenü auswählbar sind. Diewerden als unterschiedliche Drucler in jedem Druckmenü auswählbar angeboten.
Ich machs ja u.a. so. Deswegen schlug ich es vor.
MfG

 

Servus

Ja, es handelt sich wieder einmal um Excel. Ich hab da noch so viele Ideen und Fragen, da kommt in näherer Zeit sicher noch mehr ��
Ich werd den Code von VB-Coder morgen gleich mal checken. Die Sache mit der Druckertreiber-Spielerei ist nicht so einfach. Ich arbeite in einer großen Firma mit einer IT, die nicht wirklich viele Spielereien zulässt. Selbst Macros sind nicht wirklich gerne gesehen, aber geduldet. Mit erleichtern solche Dinge einfach ungemein die Arbeit weil es sich um immer wiederkehrende Arbeiten handelt.

Grüße und Danke
Andy

 

Du wirst die Sache mit VB nicht lösen können.
Ich hab' auch sehr lange versucht.

Das Druckerhandling ist das Stiefkind der VB-Programmierung.
Sogar im über 1.000seitigen Kofler stehen da nur drei dürftige Seiten:
http://www.amazon.de/Visual-Program...UTF8&qid=1447402107&sr=8-3&keywords=Kofler+vb.

Eventuell wirst Du hier fündig:
http://www.activevb.de/startseite/index.html,
http://vb-tec.de/index.htm.

 

Ohne dir zu nahe treten zu wollen, aber ich wage zu behaupten das man mit VB.NET JEDE Druckereinstellung tätigen kann und somit auch für jedes Szenario eine Lösung findet. VBA ist nochmal eine andere Baustelle, aber selbst da geht sehr viel.

Hast du dir mal die PrinterSettings Klasse im VB.NET angeschaut ? Darüber kann ich jede Einstellung tätigen. Von der Druckerauswahl, über die Ausrichtung, bis hin zum Duplexdruck, oder dem "virtuellen" Drucken in eine Datei. In den Vorgängerversionen bis VB6 konnte man sogar noch den Druckertreiber für jeden Drucker manuell festlegen. Das wurde aber mit VB.NET eingestampft, da Windows die Treiberverwaltung regelt.

 

Mag sein.
Ich kenne nur VB6 und das war ein Krampf.
Kann sein, daß ich das falsche Lehrbuch hatte.

Bei Microsoft steht ja einiges:
https://msdn.microsoft.com/de-de/library/9s96f6ft(v=vs.90).aspx.

Aber alles was ich getestet habe, hatte keine brauchbaren Ergebnisse.

 

@Cold Steel: ich hab' ja nicht umsonst was von saubequem geschrieben Klar gibts die Profile im Treiber, aber das ist unhandlich. Und in VBA unter Word dunnemals mit Einzelicons war das reichlich einfach mal Draft auszuwerfen oder eine PDF backen zu lassen.
Die Gute, Alte Zeit halt.

Was Excel angeht - das geht in Richtung Krampf. Aus bestimmten Gründen muss ich vage bleiben, aber mit Grafiken auf einer Seite als Anker Druckbereiche zu reorganisieren und das dann auf passende Treiber auszuwerfen geht nur mit Musklekraft.
Wenigsten eine Markierung zum Druckbereich zu machen der dann ausgeworfen wird ist noch direkt machbar wenn man physisch druckt (In-Datei klemmt schon beim Angeben des Dateinamens).

Wie genau soll sich die Aufgabe im Alltag stellen?

Eric March

 

Erstmal würde ich über nen Update auf ne neue VB Version nachdenken. Ich würde dir VB 2013 empfehlen. Das komplette Visual Studio 2013 Express bekommst du hier >> klick << direkt von MS für lau. ACHTUNG : Die ISO hat über 6 GB !

Bücher gibts einige gute je nachdem, wohin das ganze gehen soll. Die MSDN ist auf jeden Fall immer ein guter Anlaufpunkt.

 

Danke für den Hinweis.
Kann das VB ausführbare .exe-Dateien erstellen?

 

Also ich kann nach kurzzeitiger Spielerei und kleinerer Codeoptimierung sagen, dass es hervorragend funktioniert.
Ich möchte nur noch mit einbinden, dass ich gleich zwei Kopien mit dem Befehl drucke. Ansonsten bin ich sehr glücklich damit.

Grüße
Andy

 

Hallo!

Bei "ActivePrinter" den Namen des Druckers angeben wie er in der Systemsteuerung steht. Soll kein Drucker "gewählt" werden kann man diesen Parameter auch weglassen. Code ungetestet.

Code:

Sub A3Drucken()
Dim strOldPrinter As String

' Standarddrucker merken
strOldPrinter = Application.ActivePrinter

' Drucken
  With ActiveSheet
       With .PageSetup
              .PrintArea = Selection.Address
              .Zoom = False
              .Orientation = xlPortrait
              .PaperSize = xlPaperA3
              .FitToPagesWide = 1
              .FitToPagesTall = 1
       End With
      .PrintOut Copies:=2, ActivePrinter:="DruckerName"
  End With

' Standarddrucker wiederherstellen
Application.ActivePrinter = strOldPrinter
End Sub

Gruß, René

 

Servus zusammen.

Ich hab schon wieder eine neue Frage.
Ich habe folgenden Code implementiert:

Code:

Sub Test()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = True
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayGridlines = False
End Sub

Code:

Gibt es eine Möglichkeit zusätzlich zu verhindern, dass man den Fullscreen-Mode verlassen kann? Das geht ja im Moment recht leicht mit ESC

Grüße
Andy

 

Gibt es.

und so aktiviert man sie wieder

@chipchap: ja das geht

 

Gibt's zusätzlich noch ne andere Möglichkeit das Beenden des Fulscreen zu unterbinden?
Die ESC-Deaktivierung funktioniert super, allerdings endet er Fullscreen automatisch wenn ich die Fenstergröße ändere.
Tut mir leid wenn ich blöd frage, aber ich bin absoluter VBA-Anfänger

 

Das lässt sich nicht wirklich wirksam unterbinden.

 

Das hört sich nicht gut an