Udskriv kun synlige udfyldte felter

det gør den ikke ved mig

eks. formel i D5
=HVIS(D4<>"";D4;"")

hvis denne formel er som det eneste på en linie, kommer den ikke med, kun hvis jeg sætter en værdi i D4, er den med

Hej kabbak

Hvis du prøver at indsætte funktionen

=HVIS(A19="";"";LOPSLAG(C19;INDIREKTE(A19);2;FALSK))

fra række 1 - 200

udskrives blanke sider 8 - i alt fald hos mig!

MVH. KMSH

=HVIS(A19="";"";LOPSLAG(C19;INDIREKTE(A19);2;FALSK))
hvis den ikke viser noget, kommer den linien ikke med ved mig

Har du prøvet at tage Vis udskrift?

MVH. KMSH

sæt disse 2  koder ind i ThisWorkbook modulet, så kan du se det ved vis udskrift

dobbeltklik på arket,når du kommer tilbage til arket, for at få dine skjulte rækker tilbage

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Tom As Boolean, VL As Variant, T As Integer, R As Integer, I As Integer, AD As Integer

R = Range("A1").SpecialCells(xlLastCell).Row
AD = Range("A1").SpecialCells(xlLastCell).Column
For I = 1 To R
Tom = True
VL = Range(Cells(I, 1), Cells(I, AD)).Value
For T = 1 To AD
If VL(1, T) <> "" Then
Tom = False
Exit For
End If
Next

If Tom = True Then
Rows(I).EntireRow.Hidden = True
End If
Next

End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)


Cells.EntireRow.Hidden = False
End Sub

med disse 2 kan du faktisk godt skrive ud via din printer icon

hvordan går det ?

Hej Kabbak,

jeg kan ikke få det til at virke hos mig, men tænker at jeg måske gør det forkert. Jeg har en engelsk version og har prøvet at erstatte "tom" med empty. Måske jeg skal skrive "blank" i stedet? Jeg har også forsøgt at indføre det i en danske version, men der kommer stadig blanke sider.....

Mvh. KMSH