Udskriv kun en del af et regneark

En simpel løsning kunne være at smide et autofilter på, og hver gang der skal printes vælge custom i kolonnen for antal bestilte varer og så "greater than" "0". Så kan man blot se og printe de bestilte linjer.
Hilsen Luffe

Hej

Denne kode skjuler alle rækker med en blank celle i kolonne A

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Ark1" Then
        Cancel = True
        Application.EnableEvents = False
        Application.ScreenUpdating = False
      With ActiveSheet
            On Error Resume Next
            .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
            .PrintOut
            .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
            On Error GoTo 0
        End With
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Pejsen