Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: printen parkeervergunning

  1. #1
    Senior Member
    Geregistreerd
    17 juni 2015
    Vraag is opgelost

    printen parkeervergunning

    Hallo,

    Bij ons op het werk hebben we om de x aantal weken een stilstand.
    We delen parkeervergunningen uit zodat het terrein niet vol komt te staan met auto's.
    Nu heb ik wat in elkaar geknutseld het werkt, maar als er een rij word toegevoegd moet elke keer de VBA code worden aangepast.
    Is het mogelijk om het zo te maken dat dit niet uit maakt?
    Misschien kan dan ook gekeken worden om 1 sjabloon te hebben voor het printen, waarbij de achtergrondkleur veranderd.

    P1 tm P12 word altijd allemaal geprint de rest alleen die ingevuld zijn.

    BVD
    Bijgevoegde bestanden Bijgevoegde bestanden
    Marco

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Zorg ervoor de de namen van de tabjes in de 2e tabel van de tab 'Gegevens' overeenkomen met de printbladen.
    Code:
    Sub VenA()
      ar = Sheets("Namen").UsedRange
      For j = 2 To UBound(ar)
        If Len(ar(j, 1)) > 4 Then c00 = c00 & j & " "
      Next j
      x = Split(Trim(c00) & " " & UBound(ar))
      
      ar1 = Sheets("gegevens").ListObjects(2).DataBodyRange
      For j = 1 To UBound(ar1)
        If ar1(j, 2) Then
          Select Case j
            Case 6: print_Overzicht
            Case 7: Print_kolenpark_leeg
            Case Else
              With Sheets(ar1(j, 1))
                For jj = x(j - 1) + 2 To x(j)
                  c00 = ""
                    If ar(jj, 2) <> "" Then
                      c00 = ar(jj, 2) & "||" & ar(jj, 3) & "||" & ar(jj, 4) & "||" & ar(jj, 5) & "||" & ar(jj, 6)
                      .Cells(5, 5).Resize(9) = Application.Transpose(Split(c00, "|"))
                      .PrintPreview
                    End If
                Next jj
            End With
          End Select
        End If
      Next j
    End Sub
    Bijgevoegde bestanden Bijgevoegde bestanden
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    Senior Member
    Geregistreerd
    17 juni 2015
    Ik ben op vakantie als ik weer aan het werk ben zal ik er naar kijken.
    Alvast bedankt.

  4. #4
    Senior Member
    Geregistreerd
    17 juni 2015
    Voor zover ik het nu kan zien lijkt het te werken.
    Dank je
    Marco

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren