Printmacro met wisslend bereik

[janemmers]

Ik wil met behulp van een opdrachtknop het gevulde deel van het werkblad laten uitprinten

In het bijgevoegde bestandje wil ik een macro plaatsen onder de knop printen
De macro moet enkel de rijen printen waarvan in kolom F een datum is genoemd
Het afdrukbereik wordt dan F10 tot K.... (tot rij waar de laatst gevulde datum in kolom F staat)
De verborgen rijen moeten niet geprint worden

De printmacro moeten zowel werken als je het actuele/historie filter (door knop actueel / historie) hebt toegepast.

 

[VenA]

Even jouw last- en firstrow aanpassen?

LastRow = .Cells(.Rows.Count, "F").End(xlUp).Row
        Firstrow = Application.Max(10, LastRow - 23)

 

[janemmers]

Door alleen de eerste en laatste rij aan te passen werkt het nog niet goed. Wel beter.
Het afdrukbereik moet altijd starten bij F10 en eindigen bij K.... (aantal rijen is afhankelijk van het aantal gevulde cellen in kolom f vanaf rij 12)

In de huidige macro werkt dit niet zo

 

[VenA]

Zo?

Sub Printmacro()
  ActiveSheet.PageSetup.PrintArea = "F10" & ":K" & Cells(Rows.Count, "F").End(xlUp).Row
  ActiveSheet.PrintPreview
End Sub

 

[janemmers]

Dank voor de hulp. Werkt zoals ik heb gevraagd

 

[VenA]

Met wat minder dubbele code kan je ook een heel eind komen.

Private Sub CommandButton1_Click()
  With CommandButton1
    c00 = IIf(.Caption = "Actueel", "Historie", "Actueel")
    .Caption = c00
    .BackColor = IIf(c00 = "Actueel", vbGreen, vbYellow)
  End With
  
  With Range("F10").CurrentRegion
    .Sort IIf(c00 = "Actueel", Range("H10"), Range("K10")), , , , , , , xlYes
    If c00 = "Actueel" Then
      .AutoFilter 1, "<" & Format(Date, "mm-dd-yyyy")
      .AutoFilter 6, "="
      Else
      .AutoFilter 6, "<>"
    End If
  End With
End Sub