Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druck mit Button per VBA

Druck mit Button per VBA
19.03.2016 08:40:20
MB12
Hallo zusammen,
meine "Monster-Mappe" vergrößert sich mal wieder.
Zusätzlich zum Ausdruck einzelner Blätter als Besprechungsvorlage soll jeweils noch ein zugehöriges Auswertungsblatt mit komplett anderen Formatierungen gedruckt werden. Hatte schon versucht, mit der Kamera die Auswertung nach einem Seitenumbruch einzufügen, aber das funktioniert nicht richtig.
Beispiel: Druck Blätter Aa und Aax, Blätter Ab und Abx, Blätter Ba und Bax usw.
Hauptblatt Aa Format A3 längs mit angepassten Seitenrändern, definiertem Druckbereich und "Druck auf einer Seite", Zusatzblatt Aax: A4 längs, horizontal zentriert, Rest Standard.
Auf dem Hauptblatt am besten Druckbefehl mit Button in M2
Noch komfortabler wäre, wenn ich gar keine Zusatzblätter erstellen müsste. Die Daten für die Auswertungen liegen alle im Blatt Xxx und könnten jeweils als Bereich definiert werden.
Beispiel: Daten für Aax im Blatt Xxx im Bereich A2 bis C6, für Abx im Bereich A6 bis C20 usw.; maximal 15 Zeilen. Der Name des Hauptblatts steht jeweils in der 1. Zeile des Bereichs in Spalte C, also z.B. in C2, C6 usw.
Das Warten auf Eure Vorschläge wird für mich spannender als das Qualifying in Australien von eben….. Danke Euch schon jetzt :-)

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druck mit Button per VBA
19.03.2016 12:18:29
Hans
Moin moin,
mal sehen, ob dir das hilft:
Sub Drucken()
' Drucken Makro
Sheets("Rechnung").Select
ActiveWindow.SmallScroll Down:=-114
ActiveWindow.SelectedSheets.PrintOut Copies:=2
Sheets("Hauptseite").Select
End Sub

So hab ich das gemacht.
"Sheets" = Dein zu druckendes Blatt
"Copies" = die Menge der zu druckenden Seiten
Viel Spaß beim probieren
HANS

Druck bestimmter Blätter mit Button per VBA
19.03.2016 13:42:13
MB12
Hallo Hans,
danke für deine Antwort, aber damit werde ich nicht zurechtkommen. Die Datei ist zu umfangreich, um die passenden Blätter zu finden, Fehler und Ärger bei den Assistenten sind vorprogrammiert.
Nochmal ein Beispiel:
Für die Besprechung Aa gehe ich ins Blatt Aa und gebe über einen Button in der Zelle A1 den Druckbefehl. Dadurch werden Blatt Aa und das zugehörige Blatt Aax, das sich an einer anderen Stelle befindet, gedruckt. Das gleiche für Besprechung Ab, Ba, Bb usw. Die Zusatzblätter werden immer den gleichen Namen wie die Hauptblätter haben, aber mit Zusatz "x".
Also danke für deine Mühe, aber ich muss nochmal um Unterstützung bitten.
Beste Grüße
Margarete

Anzeige
AW: Druck bestimmter Blätter mit Button per VBA
21.03.2016 09:00:30
ChrisL
Hi
Siehe Anhang:
https://www.herber.de/bbs/user/104488.xlsm
Im Beispiel geht es mehr um das prinzipielle Vorgehen. Die einzelnen Druck- und Formatierungsbefehle müsstest du mit dem Makrorekorder rausfinden.
Den Button auf Tabellen Aa, Bb usw. weist du folgenden Code zu:
Private Sub CommandButton1_Click()
Call druck1(ActiveSheet)
End Sub

Im Standardmodul steht dann:
Sub druck1(WS1 As Worksheet)
Dim WS2 As Worksheet
Set WS2 = Worksheets(WS1.Name & "x")
MsgBox "Druck Blatt: " & WS1.Name
MsgBox "Druck Blatt: " & WS2.Name
'WS1.PrintOut
'WS2.PrintOut
Call druck2
End Sub Sub druck2()
Dim WS3 As Worksheet
Set WS3 = Worksheets("immer")
MsgBox "Druck Blatt: " & WS3.Name
'WS3.PrintOut
End Sub
cu
Chris

Anzeige
erledigt: Druck bestimmter Blätter
21.03.2016 11:56:55
MB12
Hallo Chris,
du hast dir ja wirklich - auch mit der Beispieldatei - viel Mühe gegeben, mir zu helfen.
Inzwischen habe ich von Herbert und Michael eine prima Lösung erhalten. Warum das nicht im Thread steht, kann ich nicht erklären.
Trotzdem hilft mir diese Datei für kommende Fälle.
Euch allen herzlichen Dank
Margarete
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge