print macro

[autoweek]

Beste helper,

Ik heb heel simpel een knop waar ik de volgende macro aan heb toegevoegd:

Sub Knop3_Klikken()
'
' Knop3_Klikken Macro
'

'
ActiveWindow.SmallScroll Down:=-27
Range("A1:E96").Select
Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Maar op het moment dat ik wil printen krijg ik een foutmelding waarbij die regel geel is.

 

[DANIEL162]

Probeer deze eens

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

groetjes Daniel

 

[autoweek]

Nee die werkt niet

 

[autoweek]

Ik heb een oplossing gevonden!

 

[DANIEL162]

test deze bij mij werkt het

Bekijk bijlage Map2.xls

Groetjes Daniel