Ausdruck von gewählten Formularen,

Guten Morgen miteinander
Ich habe für unser Team ein Formular in Excel kreiert, damit wir dieses nicht jedesmal händisch ausfüllen müssen.
Mein Ziel ist es, durch den Button "Druck Meldung an ESTV" jeweils am Standard Drucker pro Land, welches in der Eingabemaske unter dem Punkt "Meldung erstellen für" genannt wird, je andere Ausdrucke zu generieren. Das heisst: Wenn das Land Schweden ausgewählt wird, müssen mit der Betätigung des "Druck Meldung an ESTV" Buttons
die unter den ausgeblendeten Registern aufgeführten Formulare "Begleitbrief", "Meldung ESTV" und "Berechnungsblatt" ausgedruckt werden.
Wenn Finnland ausgewählt wird, dann dürfen nur die Formulare "Begleitbrief" und "Berechnungsblatt" ausgedruckt werden.
Eine Eingabeaufforderung für uns ist nicht nötig, da wir ja bereits auf der Eingabemaske festgelegt haben, für welches Land wir den Ausdruck benötigen.
Das selbe sollte auch mit dem Button "Dokumente in Enaio speichern" passieren. Zusätzlich sollte dieser Button für Alle immer einen festgelegten Drucker (nicht Standard) ansteuern. Wie könnte ich das machen, dass immer dieser Drucker, welcher in Windows unter dem Druckmenü ausgewählt wird. Ich habe ja im "Druck Meldung an ESTV" Button den Standard Drucker ausgewählt und nun sollte dieser nicht mehr genützt sondern durch einen anderen ersetzt werden. Geht das?
Ich wäre euch dankbar, wenn ihr mir helfen könntet.
Danke und beste Grüsse
Stéphane
Excel als Anhang: https://www.herber.de/bbs/user/157397.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Herbert
Da hast Du vollkommen recht - komplizierter geht es nicht mehr. Bitte um Entschuldigung.
Ich generiere mit meiner Exceldatei 3 Formulare. Diese drucke ich mit dem Button "Druck Meldung an ESTV" mittels Makro auf dem Standard Drucker aus, welcher in Windows hinterlegt ist. Das funktioniert auch, da es der Standard Drucker ist und Excel diesen Drucker ansteuert.
Zusätzlich möchte ich diese 3 Formulare mit einem zweiten Button "Dokumente in Enaio speichern" auf einem anderen Drucker ausdrucken. Normalerweise ersetze ich in der Druckersteuerung den Standard-Drucker mit einem einen anderen Drucker und Excel druckt dann auf diesem anderen Drucker aus.

Mein Ziel ist es, die 3 Dokumente auf einem anderen Drucker auszudrucken, ohne dass ich manuell in der Druckersteuerung von Windows die Drucker wechseln muss.
Geht das? Ich hoffe, dass meine Anfrage nun verständlicher ist - und Danke für die Unterstützung.
Stéphane

Sub Drucker_wechseln2()' 'Drucker_wechseln2 Makro ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveWorkbook.Save Application.Goto Reference:="Drucker_wechseln2" End Sub

Mach eine neue Datei In A1 schreibst Du irgendwas rein Öffne den VBA-Editor und füge ein normales Modul hinzu, da kopierst Du dieses Makro rein: Sub ZeigeDrucker() Range("A" & Rows.Count).End(xlUp).Offset(1) = Application.ActivePrinter End Sub VBA-Editor zu Alt-F8 drücken und ausführen, dann sollte in A2 sowas wie Samsung CLP-310 Series (USB001) auf Ne00: erscheinen Datei\Drucken\ den anderen Drucker auswählen \ ESC drücken Alt-F8 drücken und ausführen, dann ist in A3 der andere Drucker

Beliebteste Forumthreads (12 Monate)

Ausdruck von gewählten Formularen,

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread