Microsoft Excel

Herbers Excel/VBA-Archiv

Code anpassen | Herbers Excel-Forum


Betrifft: Code anpassen von: Fritz_W
Geschrieben am: 21.02.2012 11:16:47

Hallo Forumsbesucher,

bitte um eure Hilfe bei der entsprechenden Anpassung des Codes.

Mit nachfolgendem Makro drucke ich die ausgeblendete Tabelle2 aus:

Sub Tabelle2_drucken()
Application.ScreenUpdating = False
Sheets("Tabelle2").Visible = True
Sheets("Tabelle2").PrintOut
Sheets("Tabelle2").Visible = False
Application.ScreenUpdating = True
End Sub
Ich würde aber gerne vor dem Ausdruck die Druckvorschau aufrufen und dann entweder ausdrucken oder eben auch nicht ausdrucken. Jedenfalls sollte anschließend die Tabelle2 immer auch wieder ausgeblendet werden.

Vielen Dank im Voraus.

mfg
Fritz

  

Betrifft: .PrintPreview statt .PrintOut o.T. von: Josef Ehrensberger
Geschrieben am: 21.02.2012 11:29:20

« Gruß Sepp »



  

Betrifft: AW: Code anpassen von: Tino
Geschrieben am: 21.02.2012 11:29:44

Hallo,
könntest mal so versuchen.

Sub Tabelle2_drucken()
Application.ScreenUpdating = False
    DruckVorSchau Sheets("Tabelle2")
Application.ScreenUpdating = True
End Sub

Sub DruckVorSchau(oWS As Worksheet)
With oWS
 .Visible = True
 .PrintPreview
 Application.OnTime Now + TimeSerial(0, 0, 1), "'TabAusblenden """ & .Name & """'"
End With

End Sub

Sub TabAusblenden(strTabName$)
    ThisWorkbook.Sheets(strTabName).Visible = False
End Sub
Gruß Tino


  

Betrifft: Code etwas umgebaut, macht aber das gleiche von: Tino
Geschrieben am: 21.02.2012 11:43:57

Hallo,

Sub Tabelle2_drucken()
    DruckVorSchau Sheets("Tabelle2")
End Sub

Sub DruckVorSchau(Optional oWS As Worksheet)
Static objTabelle As Worksheet
If objTabelle Is Nothing Then
    Application.ScreenUpdating = False
    Set objTabelle = oWS
    With objTabelle
        .Visible = True
        .PrintPreview
        Application.OnTime Now + TimeSerial(0, 0, 1), "DruckVorSchau"
    End With
Else
    objTabelle.Visible = False
    Set objTabelle = Nothing
    Application.ScreenUpdating = True
End If
End Sub

Gruß Tino


  

Betrifft: AW: Code etwas umgebaut, macht aber das gleiche von: Fritz_W
Geschrieben am: 21.02.2012 11:44:59

Hallo Tino,

nochmals vielen Dank

und schöne Grüße
Fritz


  

Betrifft: Beiden Helfern ganz herzlichen Dank o.w.T. von: Fritz_W
Geschrieben am: 21.02.2012 11:41:24

Viele Grüße
Fritz


Beiträge aus den Excel-Beispielen zum Thema "Code anpassen"