Ik probeer een macro te maken waarmee een bepaald aantal pagina's moet worden afgedrukt.
Als er in cel K21 een waarde komt is het de bedoeling dat pagina 1 tot "die specifieke waarde" wordt afgedrukt, maar om 1 of andere reden krijg ik het niet klaar... hij blijft alle pagina's printen
Dit is wat ik gebruikt heb:
Sub Afdrukken()
Dim nAantal As Integer
nAantal = Sheets("Paklijst").Range("K21")
ActiveWorkbook.Sheets("Afdruk").PrintOut From:=1, To:=nAantal, Copies:=1, Collate _
:=True
End Sub
Kan iemand me mss helpen en zeggen waar ik fout ga?
Als er in cel K21 een waarde komt is het de bedoeling dat pagina 1 tot "die specifieke waarde" wordt afgedrukt, maar om 1 of andere reden krijg ik het niet klaar... hij blijft alle pagina's printen
Dit is wat ik gebruikt heb:
Sub Afdrukken()
Dim nAantal As Integer
nAantal = Sheets("Paklijst").Range("K21")
ActiveWorkbook.Sheets("Afdruk").PrintOut From:=1, To:=nAantal, Copies:=1, Collate _
:=True
End Sub
Kan iemand me mss helpen en zeggen waar ik fout ga?