Få et udskriftsark til at slette/skjule ikke anvendte rækker

En nem måde at løse dette problem på er ved at placere SUM-formlen ovenover linierne.

Det er med henblik på at få et grafisk repræsentativt udskriftsark, så mellemrummene er ikke problem i forhold til sum formlen!

Der kommer yderlig tekst under sum-formlen

I Excel kan man operere med såkaldte dynamiske områder.
Disse er bl.a. effektive, hvis man har et data-område til et diagram, som varierer.

Send dit ark til mig, hvis det er det, som er problemet. Så kigger jeg på det.

janvogt@esenet.dk

Kan du ikke bruge autofilter ?
Her kan man filtrere de blanke linier væk.

Sådan en lille makro som denne her skulle kunne gøre det.
Du skal så bruge makroen til at udskrive med og ikke Print ikonet

Public Sub MyPrintOut()
    Dim rCell As Range
    Dim rSearchRange As Range
    'Rækker der skal valideres
    Set rSearchRange = Range("A1:A20")
   
    'Skuler rækker
    For Each rCell In rSearchRange
        If rCell.Value = "" Then
            rCell.EntireRow.Hidden = True
        End If
    Next rCell

    'Udskriver
    ActiveSheet.PrintOut Copies:=1
   
    'Viser rækker igen efter udskrift
    For Each rCell In rSearchRange
        If rCell.EntireRow.Hidden Then
            rCell.EntireRow.Hidden = False
        End If
    Next rCell

    Set rCell = Nothing
    Set rSearchRange = Nothing
End Sub

Eller lidt kortere
Sub Hide_Empty_Rows()
    Set Gemmes = Range("a1:a20").SpecialCells(xlCellTypeBlanks)
    Gemmes.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    Gemmes.EntireRow.Hidden = False
End Sub

Eller lidt smartere (måske).
Placer denne kode i ThisWorkbook-modulet og de tomme linier gemmes ved udskrift og vises igen når der er sendt til printeren.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Set Gemmes = Range("a1:a20").SpecialCells(xlCellTypeBlanks)
    Gemmes.EntireRow.Hidden = True
    ActiveSheet.PrintOut Copies:=1
    Gemmes.EntireRow.Hidden = False
End Sub

Sorry, det sidste var ikke gennemtænkt. Hvis det skal bruges skal de to sidste linier udelades.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Set Gemmes = Range("a1:a20").SpecialCells(xlCellTypeBlanks)
    Gemmes.EntireRow.Hidden = True
End Sub

Jeg bruger af princip aldrig SpecialCells (vist noget med versionsforskelle/eksistens), men ok.

Workbook_BeforePrint fint - der findes blot ikke en Workbook_AfterPrint

mcfish>> Fik du det løst ?

Jeg har fået det løst mange tak, men jeg havde problemer med Specialcells!

Fino :-) Jeg har også ofte problemer med SpecialCells.

Jaaaeee, jeg har ingen problemer haft med dem endnu :-) , men jeg kunne da godt lide at vide hvad fejlmeddelsen var.
Du har ret i at der mangler en after_print hændelse, Flemming, men kan man ikke lave sådan en selv ???