Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
736to740
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
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 19:45:50
Heinz
Hallo Leute
Gibt es eine Möglichkeit auch aus einer UF Blätter auszudrucken,wenn diese Ausgeblendet sind ?
Blätter heissen genau so wie in den CheckBoxen.
Also 311,312A usw.
Danke,Heinz

Private Sub DruckenButton_Click()
'Blattnamen jeweils anpassen!
If CheckBox1 Then Sheets("311").PrintOut
If CheckBox2 Then Sheets("312A").PrintOut
If CheckBox3 Then Sheets("312B").PrintOut
If CheckBox4 Then Sheets("321").PrintOut
If CheckBox5 Then Sheets("322").PrintOut
If CheckBox6 Then Sheets("331").PrintOut
If CheckBox7 Then Sheets("332").PrintOut
If CheckBox8 Then Sheets("333").PrintOut
If CheckBox9 Then Sheets(Array("311", "312A", "312B", "321", "322", "331", "332", "333")).PrintOut
Unload Me
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 19:58:28
Dieter
Hi,
ausgeblendete Blätter können nicht gedruckt werden.
mfg Dieter
AW: Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 20:01:15
Heinz
Hallo Dieter
Danke für Deine Antwort.
Na Schade dann muss ich halt alle eingeblendet lassen.
Danke & Gruss,Heinz
AW: Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 20:18:05
PeterW
Hallo Heinz,
schalte die Bildschirmaktualisierung )Application.ScreenUpdating = False) aus, blende die Blätter ein, drucke sie, blende sie wieder aus und schalte die Bildschirmaktualisierung wieder ein ( = True).
Gruß
Peter
AW: Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 20:14:42
Reinhard
Hi Heinz,
wieso das denn? Blende sie doch alle vor den If-Abfragen ein (hidden oder visible, verwechsle das immer*g, siehe in der Hilfe nach), dann druckst du aus, dann versteckst du sie wieder mit "xlveryhidden".
Und application.screenupdating=false bzw am Codeende =true benutzen.
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Drucken in UF mit Ausgeblendeten Blättern
24.02.2006 20:29:01
Heinz
Hallo Reinhard
Habe unteren Code geändert,habe wahrscheinlich irgendwo Blödsinn gemacht.
Könntest Du mir da bitte weiterhelfen?
Danke,Heinz

Private Sub DruckenButton_Click()
'Blattnamen jeweils anpassen!
Application.ScreenUpdating = False
Application.Visible
If CheckBox1 Then Sheets("311").PrintOut
If CheckBox2 Then Sheets("312A").PrintOut
If CheckBox3 Then Sheets("312B").PrintOut
If CheckBox4 Then Sheets("321").PrintOut
If CheckBox5 Then Sheets("322").PrintOut
If CheckBox6 Then Sheets("331").PrintOut
If CheckBox7 Then Sheets("332").PrintOut
If CheckBox8 Then Sheets("333").PrintOut
If CheckBox9 Then Sheets(Array("311", "312A", "312B", "321", "322", "331", "332", "333")).PrintOut
Unload Me
Application.xlVeryHidden
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Drucken in UF mit Ausgeblendeten Blättern
25.02.2006 00:35:36
Reinhard
Hi Heinz,
Option Explicit
Private Sub DruckenButton_Click()
'Blattnamen jeweils anpassen!
Dim n
Application.ScreenUpdating = False
For n = 1 To ThisWorkbook.Worksheets.Count
Worksheets(n).Visible = True
Next n
If CheckBox1 Then Sheets("311").PrintOut
If CheckBox2 Then Sheets("312A").PrintOut
If CheckBox3 Then Sheets("312B").PrintOut
If CheckBox4 Then Sheets("321").PrintOut
If CheckBox5 Then Sheets("322").PrintOut
If CheckBox6 Then Sheets("331").PrintOut
If CheckBox7 Then Sheets("332").PrintOut
If CheckBox8 Then Sheets("333").PrintOut
If CheckBox9 Then Sheets(Array("311", "312A", "312B", "321", "322", "331", "332", "333")).PrintOut
For n = 1 To Worksheets.Count
'wiedereinblenden geht nur mit vba, ansonsten Worksheets(n).Visible = false
Worksheets(n).Visible = xlVeryHidden
Next n
Unload Me
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Drucken in UF mit Ausgeblendeten Blättern
25.02.2006 05:05:21
Heinz
Hallo Reinhard
Recht herzlichen Dank,für Deine Hilfe !!!
Gruss,Heinz

160 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige