Druckbutton definieren!

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Druckbutton definieren!
von: Marvin
Geschrieben am: 01.12.2015 22:23:23

Guten Abend zusammen,
Habe in meiner Tabelle1 einen Druckbutton eingebaut mit folg. Code

Private Sub CommandButton5_Click()
ThisWorkbook.Worksheets("Tabelle2").PrintOut
 End Sub
Dieser druckt das verknüpfte Blatt in Tabelle2 aus.
Per Click auf den Druckbutton wird sofort an den vorher schon integrierten Drucker gesendet und dieser Druck das Blatt dann aus, ohne nochmals auf das Eigenschaftenfenster zu gelangen.
Nun meine Angelegenheit:
In Tabelle3 ist ebenfalls ein Dokument, was aber definitiv nicht von dem selben Drucker wie Tabelle2 gedruckt werden soll, sondern von Drucker XY
Ich finde keinerlei Lösung dazu, hoffe daher, dass mir wer dazu weiterhelfen kann.
Vielen lieben Dank!
Angenehmen Abend!

Bild

Betrifft: AW: Druckbutton definieren!
von: Sepp
Geschrieben am: 01.12.2015 23:23:15
Hallo Marvin,
so?

Private Sub CommandButton5_Click()

If Application.Dialogs(xlDialogPrinterSetup).Show Then
  ThisWorkbook.Worksheets("Tabelle3").PrintOut
End If

End Sub

Gruß Sepp


Bild

Betrifft: AW: Druckbutton definieren!
von: Marvin
Geschrieben am: 01.12.2015 23:38:48
Hey Sepp,
danke für die schnelle Antwort und die Lösung!
Mal ganz abgesehen davon was lässt sich denn bei dem Gedanken
Commandbutton5 - Click - Sofortiger Ausdruck von Tabelle2 auf Drucker X
Commandbutton6 - Click - Sofortiger Ausdruck von Tabelle3 auf Drucker Y
machen?
Danke für deine aufmerksame Hilfe!

Bild

Betrifft: AW: Druckbutton definieren!
von: Sepp
Geschrieben am: 02.12.2015 18:00:57
Hallo Marvin,
klar geht das, du musst nur den gewünschten Drucker angeben.
Den exakten Druckernamen erhälst du, wenn du in Excel den gewünschten Drucker wählst und dann im VBE im Direktbereich (STRG+G wenn er nicht angezeigt wird!), den Befehl '?Application.ActivePrinter' (onhe ') eingibst und mit ENTER abschließt, dann wird dir der Name des aktiven Druckers ausgegeben, diesen dann im Code einsetzten.Für den anderen Drucker analog.

Private Sub CommandButton5_Click()
Dim strPrinter

strPrinter = Application.ActivePrinter

Application.ActivePrinter = "Dein Druckername"

ThisWorkbook.Worksheets("Tabelle3").PrintOut

Application.ActivePrinter = strPrinter
End Sub

Gruß Sepp


Bild

Betrifft: AW: Druckbutton definieren!
von: Marvin
Geschrieben am: 02.12.2015 20:41:35
Sepp, vielen lieben Dank für deine Hilfe und die Lösung zum Ziel.
Beste Grüße und immer wieder ;)

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wenn Zellenwert gleiche Zellenwert dann Summe"