AW: Druck nur von sichtbaren Seiten
21.11.2005 09:05:32
sichtbaren
Hallo Ulrike,
ohne Makro fällt mir nichts ein, aber hier ist eine Lösung, die funktionieren sollte:
Sub sPrintOnlyVisiblePages()
' Druckt alle nicht ausgeblendeten Seiten
' (funktioniert nur richtig, wenn jede Seite durch manuellen Umbruch erzeugt wird!!!)
' Viel Spaß! Frank Domke.
Dim ws As Worksheet ' Arbeitsblatt
Dim intI As Integer ' Laufvariable
Dim intPage As Integer ' Seitenzähler
Dim lngLastBreak As Long ' Letzter manueller horizontaller Seitenumbruch
Dim lngCurrentBreak As Long ' Aktueller manueller horizontaller Seitenumbruch
Set ws = ActiveSheet
lngLastBreak = 1
intPage = 1
For intI = 1 To ws.HPageBreaks.Count
lngCurrentBreak = ws.HPageBreaks(intI).Location.Row
If Not Range("A" & lngLastBreak, "A" & lngCurrentBreak - 1).EntireRow.Hidden Then
Debug.Print "Seite " & intPage
' Nach intensiven Test Kommentarzeichen entfernen!
'ws.PrintOut From:=intPage, To:=intPage
End If
lngLastBreak = lngCurrentBreak
intPage = intPage + 1
Next
Set ws = Nothing
End Sub
Schöne Grüße nach Asien!
Frank.