Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub CommandButton1_Click()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 50
Range("A1").Value = "'00" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Het document is " & (i - 1) & " keer afgedrukt!"
End Sub
Wat is er niet gelukt?
Private Sub CommandButton1_Click()
Range("A53").Value = ""
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 3
Range("A53").Value = "'" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Het document is " & (i - 1) & " keer afgedrukt!"
End Sub
Maak er dit van:
Code:Private Sub CommandButton1_Click() Range("A53").Value = "" Dim i As Integer Application.ScreenUpdating = False For i = 1 To 3 Range("A53").Value = "'" & i ActiveSheet.PrintOut Next i Application.ScreenUpdating = True MsgBox "Het document is " & (i - 1) & " keer afgedrukt!" End Sub
Werkt het dan wel?
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.