Print vraag

[Pieter77]

Mijn excel bestand bestaat uit circa 100 worksheets. Nu heb ik een knop aangemaakt die een aantal van die sheets selecteert obv een filter. Aan deze 'selectiemacro' wil ik graag een opdracht vastkoppelen zodat alle geslecteerde werkbladen worden uitgeprint, maar dan alleen de eerste pagina en in landscape formaat. Hoe krijg ik dat voor mekaar?

Dank

 

[Wigi]

Voor een stuk ongeteste code

Sub printen()
    
    Dim ws As Worksheet
    
    For Each ws In ActiveWindow.SelectedSheets
    
        With ws
        
            .PageSetup.Orientation = xlLandscape
            .PageSetup.PrintArea = .UsedRange.Address
            .PrintOut from:=1, to:=1
            
        End With
        
    Next
    
End Sub

Wigi