Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per Makro Druckabfrage

Forumthread: per Makro Druckabfrage

per Makro Druckabfrage
30.12.2005 12:04:36
Jürgen
Hallo Excel Forum,
hatte heute hier schon Glück mit einer Frage. Vielleicht jetzt auch...
Was muss man Programmieren, wenn nach Durchlauf eines Makros eine Abfrage erscheinen soll die ungefähr so aussieht:
Möchten Sie das Dokument jetzt drucken?
Ja --- Anzahl --- Nein
Bei Ja sollte auf dem Standartdrucker der Druck angestoßen werden. Anzahl Druckaufträge sollte in der Grundeinstellung auf 1 stehen. Hier könnte man dann, wenn man wollte zwei oder mehr Druckaufträge angeben.
Bei Nein soll einfach das Makro zu Ende sein.
Vielleicht hat ja jemand eine Idee.
Beste Grüße Jürgen
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per Makro Druckabfrage
30.12.2005 12:22:55
Andy
Hallo Jürgen,
lege einfach eine Userform_Drucken an und belege die mit einem Optionsbutton "ja" und "nein".
Die machst Du mit einer "If then"-Funktion die jeweiligen einzublendenen Checkboxen (Unterlagen)
Außerdem fügst Du einen Button "drucken" ein und gibst den folgende VBA
hier ein Beispiel:
If Me.CheckBox_Druck1.Value = True Then
Sheets("Druck1").Visible = True 'wenn du sie einblenden willst
Sheets("Druck1").PrintOut
Sheets("Druck1").Visible = False 'wenn du sie ausblenden willst
End If
If Me.CheckBox_Druck2.Value = True Then
Sheets("Druck2").Visible = True 'wenn du sie einblenden willst
Sheets("Druck2").PrintOut
Sheets("Druck2").Visible = False 'wenn du sie ausblenden willst
End If
Grüße
Andy
Anzeige
AW: per Makro Druckabfrage
30.12.2005 12:23:37
Martina
hi,
probier mal:

Sub drucken()
Dim x As Byte
x = Application.InputBox("Wie oft soll gedruckt werden ?", "Drucken", 1, Type:=1)
If x <> False Then
Sheets("Tabelle1").PrintOut Copies:=x
Else
MsgBox "na dann eben nicht :-("
End If
End Sub

mfg
Martina
Anzeige
AW: per Makro Druckabfrage
30.12.2005 14:40:48
Jürgen
Ich danke euch beiden recht herzlich.
Ich versuche es erst einmal mit der etwas einfacheren Methode von Martina.
Guten Rutsch ins neuen Jahr
Jürgen
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige