Keuze lijst voor aantal prints

Status
Niet open voor verdere reacties.
Plaats het echte bestand even. Mijn vermoeden is dat je alles door elkaar haalt en aan de knop een verkeerde macro gekoppeld hebt. Indien niet mogelijk haal er dan professionele hulp bij. Elke keer halve informatie met wel of niet werkende bestanden waarbij het bij iedereen, behalve bij jou, wel werkt is op deze manier toch niet op te lossen.
 
Dit is het bestandje waar als ik het controleer met F8 hij wel netjes de kousnummers laat zien, maar zodra ik hem op de printer afdruk hij alleen bij de eerste 2 de kousnummers invult.
 

Bijlagen

  • Werkvergunning.xlsm
    24,8 KB · Weergaven: 29
Welke pogingen heb je zelf al gedaan?

Zo beter?
Code: 
Sub Knop1_Klikken()
  ar = Cells(8, 24).CurrentRegion
  x = Cells(23, 10)
   If x > 0 Then
    With Sheets("Werkvergunning")
      .Cells(6, 11) = Cells(9, 10)
      For j = 2 To UBound(ar)
        If ar(j, 2) <> "" Then
          .Cells(6, 14) = ar(j, 2)
          .PrintOut , , x
        End If
      Next j
    End With
 End If
End Sub
 
SUPER!!
Deze werkt.

Ik probeer heel veel uit jullie antwoorden te halen omdat ik nog steeds niet veel weet van VBA, maar des te interessanter vind ik het.

En ik vind het heel top hoe jullie hier mensen steeds te woord staan met de meest uiteenlopende vragen.

Nogmaals Thanx voor het meedenken
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan