Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

leere blätter nicht drucken | Herbers Excel-Forum


Betrifft: leere blätter nicht drucken von: Michael
Geschrieben am: 04.01.2010 12:22:26

hallo

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

  

Betrifft: AW: leere blätter nicht drucken von: Daniel
Geschrieben am: 04.01.2010 12:43:59

Hi

damit das funktioniert, sollte deine Datei keine von Hand eingefügten fixen Seitenumbrüche haben, sondern nur automatische.

um die fixen Seitenumbrüche zu löschen, müsstest du diesen Befehl vor dem Drucken einfügen:

Worksheets("KALAKS").ResetAllPageBreaks

Gruß, Daniel


  

Betrifft: AW: leere blätter nicht drucken von: Michael
Geschrieben am: 04.01.2010 13:08:54

hallo

danke für die schnelle antwort.leider funktioniert das nicht, gleichzeitig damit wird auch die skalierung auf hundert gesetzt. dann kommt nur noch mist aus dem drucker.


  

Betrifft: AW: leere blätter nicht drucken von: Daniel
Geschrieben am: 04.01.2010 15:03:40

Dann musst du halt noch die Skalierung neu auf den passenden Wert einstellen.
von Hand eingefügte Seitenumbrüche werden auf jeden Fall gedruckt, auch wenn sie zwischen ausgeblendeten Zeilen stehen und sollten entfernt werden (das kannst du ja auch von Hand machen)
Gruß, Daniel


  

Betrifft: AW: leere blätter nicht drucken von: Michael
Geschrieben am: 04.01.2010 17:51:38

danke daniel

ich hab den zoom-faktor als pagesetup hinter den break gestellt nun funzt es tadellos


Beiträge aus den Excel-Beispielen zum Thema "leere blätter nicht drucken"