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.
Sub Knop1_Klikken()
' Afdrukken_water Macro
If MsgBox("U gaat nu de standaardlijsten voor water, installatieplan en toolbox afdrukken!" & vbCr & vbCr _
& "Wilt u doorgaan?", vbOKCancel + vbQuestion, "Afdrukken") = vbCancel Then Exit Sub
ar = Cells(8, 24).CurrentRegion
x = Cells(23, 10)
If x > 0 Then
With Sheets("Werkvergunning")
For j = 2 To UBound(ar)
If ar(j, 2) <> "" Then
.Cells(6, 11).Resize(, 4) = Array(Cells(9, 10), "Putnummer", , ar(j, 2))
.PrintOut , , x
End If
Next j
End With
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.