Bepaalde pagina printen op basis van voorwaarde

[rayda39]

Beste Mededenkers,

Ik zoek een manier om een pagina te laten uitprinten als er ook daadwerkelijk iets staat in een cel.
Ik heb hier zelf als iets gemaakt maar krijg steeds de melding "Run-time error'438''
Onderstaande heb ik zelf gemaakt

Sub printen()
If Range("C4").Valeu = 1 Then
ActiveSheet.PrintOut Page:="1"
End If

If Range("C18").Valeu = 1 Then
ActiveSheet.PrintOut Page:="2"
End If

If Range("C30").Valeu = 1 Then
ActiveSheet.PrintOut Page:="3"
End If

End Sub

Bovenstaande is het voorbeeld voor 3 pagina's, uiteindelijk moet ik zo 16 pagina's kunnen printen als er wordt voldaan aan de voorwaarden.
Indien me iemand op weg kan helpen zodat de eerst pagina al word uitgeprint denk ik dat ik de rest wel zelf kan uitbreiden.
Ik heb een voorbeeld toegevoegd en alvast bedankt

Bekijk bijlage Print.xlsm

 

[edmoor]

Wijzig .Valeu in .Value

 

[rayda39]

Beste Edmoor,

Dank je wel, dit had ik moeten zien .
Nu is het zo dat ik de melding "Run-time error "1004" krijg?
Zou je me daar mee kunnen ondersteunen?

Mvg

 

[HSV]

Page: is geen argument van Printout

ActiveSheet.PrintOut from:=1, to:=1

 

[rayda39]

Dank je wel HSV,

het werkt nu prima

:thumb: