Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: mit Optionsbuttons drucken

mit Optionsbuttons drucken
10.08.2008 09:57:11
Rainer
Hallo und guten Morgen,
ich habe ein Problem mit Optionsbuttons auf einem Formular.
Mein Formular sieht 3 Optionsbuttons vor zur Druckauswahl von verschiedenen Tabellenblättern
1. Berechnung
2. Mitteilungsschreiben
3. Beides
In dem Workbook sind Tabellenblätter mit den gleichen Namen (bis auf "Beides" :-)
Nun soll je nach dem welchen Optionsbutton man markiert, das entsprechende Tabellenblatt gedruckt werden.
Idealerweise soll in dem Formular noch ein Kontrollkästchen aufgenommen werden "Druckvorschau" wenn dies aktiviert ist, soll man "nur" die Druckvorschau sehen.
Die Aktivierung soll über einen Button "Drucken" erfolgen
Ich hoffe ich habe mich verständlich ausgedrückt
Ich hoffe mir kann jemand helfen
Schöne Grüsse
Rainer

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit Optionsbuttons drucken
10.08.2008 10:20:00
Martin
Hallo Rainer,
wo genau liegt denn Dein Problem? - In der Abfrage der UserForm-Controls? Hier mal ein Vorschlag mit drei Optionsbutton, einer Checkbox und einem CommandButton1. Diesen Code in der UserForm einfügen.

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Sheets("Berechnung").Select
ElseIf OptionButton2 = True Then
Sheets("Mitteilungsschreiben").Select
ElseIf OptionButton3 = True Then
Sheets(Array("Berechnung", "Mitteilungsschreiben")).Select
End If
If Checkbox1 = True Then
ActiveWindow.SelectedSheets.PrintPreview
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
End Sub


Viele Grüße
Martin

Anzeige
AW: mit Optionsbuttons drucken
10.08.2008 10:30:49
Rainer
Hallo Martin,
das war genau das was ich gesucht habe.
Vielen, vielen Dank
Gruss
Rainer
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige