leere blätter nicht drucken
Michael
bei folgender prozedur werden nur die zeilen einer mehrseitigen tabelle gedruckt, bei denen kein "WAHR" in Spalte I steht. Problem ist nur, dass zwar die zeilen nicht gedruckt werden aber die eventuell vorhandenen Seiten dazwischen, wenn sich dort nicht zu druckende zeilen befinden. Is wahrscheinlich nur eine Kleinigkeit, denke ich Oder?
Vielen Dank für einen Tip!
Private Sub CommandButton1_Click()
Dim strBearbeitet As String
Dim strTitel As String
Dim strPNR As String
strTitel = ""
strBearbeitet = ""
strPNR = ""
strTitel = "&8Titel: " & Chr(32) & Sheets("tabelle3").Range("D8").Value
strBearbeitet = "&8Druckdatum: " & Date
strPNR = "&8PNR: " & Chr(32) & Sheets("tabelle3").Range("O12").Value
Worksheets("KALAKS").Unprotect "**"
Worksheets("KALAKS").PageSetup.LeftHeader = strTitel & Chr(13) & strPNR
Worksheets("KALAKS").PageSetup.RightHeader = strBearbeitet
Worksheets("KALAKS").PageSetup.CenterHeader = ""
Worksheets("KALAKS").PageSetup.CenterFooter = "&10&F" & "/" & "&10Detail:" & "" & "&10&A"
ScreenUpdating = False
On Error Resume Next
Range("I:I").SpecialCells(xlCellTypeFormulas, 4).EntireRow.Hidden = True
On Error GoTo 0
ActiveSheet.PrintOut
Rows.Hidden = False
Worksheets("KALAKS").Protect "**"
End Sub
Anzeige