Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 7 van 7

Onderwerp: Variabel afdrukbereik bepalen via VBA

  1. #1
    Junior Member
    Geregistreerd
    10 oktober 2018
    Vraag is opgelost

    Variabel afdrukbereik bepalen via VBA

    Goedendag,

    Ik hoop dat ik mijn probleem goed uitgelegd krijg.
    Op onze afdeling worden diverse elektrische componenten vervangen ivm storingen. Wanneer een component vervangen wordt, wordt er een storingsformulier ingevuld. Als er een aantal componenten vervangen zijn worden deze opgestuurd voor reparatie. Om het de reperateur het zo gemakkelijk mogelijk te maken worden de ingevulde storingsformulieren meegestuurd.
    Dit formulier werd per storing uitgedraaid, wat tot gevolg had dat er maar een gedeelte van een A4 gebruikt werd. Daarom heb ik nu 3 meldingen per vel gemaakt. Maar de ene keer worden er meer componenten opgestuurd dan de andere keer. Omdat er meerdere mensen deze componenten opsturen wilde ik een knop maken waarin ik het afdrukbereik kan aanpassen aan de aantal in gevulde regels.
    In het bijgevoegde voorbeeld wil ik het bereik A1:H110 afdruk via de aangebrachte knop, maar de mogelijkheid moet er ook zijn dat wanneer er meer of minder formulieren ook ingevuld worden ik deze aan kan passen, bijv. naar het bereik van A1:H140.
    Via het opnemen van een macro lukt het me wel om een vast bereik te maken, maar ik krijg deze niet aangepast wanneer er meer of minder formulieren zijn.
    Ik had het idee om dit via een inputbox te doen, zodat ik het bereik ten alle tijden aan kan passen.
    Ik heb al op youtube gekeken en gezocht binnen het forum van helpmij.nl maar ik heb helaas niets gevonden.

    Daarom mijn vraag is het wel mogelijk wat ik wil?
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Zoiets?

    Code:
    Sub VenA()
      Sheets("Printblad").Cells(1).Resize(((Sheets("opslag").Columns(1).SpecialCells(2).Count - 1) * 16) - 2, 8).PrintPreview
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    Of zo om je denkwijze van een inputbox te volgen.
    Bijgevoegde bestanden Bijgevoegde bestanden

  4. #4
    Junior Member
    Geregistreerd
    10 oktober 2018
    Goedendag,

    Graag wil VenA en Pagadder bedanken voor de aangedragen oplossing.

    Ik heb nu gekozen voor de oplossing van Pagadder, omdat ik bij deze oplossing inderdaad het bereik zelf kan ingeven.
    Bij de oplossing van VenA krijg ik wel mooi het afdrukvoorbeeld te zien, maar ik kan daar geen ander afdrukbereik kiezen wanneer ik meer of minder componenten heb.


    Groetjes Ukkie

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Dan zou ik beide oplossingen nog maar eens goed bekijken. Het afdrukbereik in mijn code wordt bepaald obv het aantal componenten in het blad opslag dus hoef je helemaal nergens iets in te vullen.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  6. #6
    Giga Senior cow18's avatar
    Geregistreerd
    24 mei 2008
    Locatie
    Alveringem, België
    Sheets("opslag").Columns(1).SpecialCells(2).Count - 1) ---> telt het aantal ingevulde cellen in de 1e kolom van opslag, in dit geval 9 (=kop+8 getallen)
    ieder blok van je is 16 rijen diep en 8 kolommen breed
    Dus ja, wordt het afdrukbereik eigenlijk (9-1) * 16 - 2 rijen bij 8 kolommen

  7. #7
    Junior Member
    Geregistreerd
    10 oktober 2018
    Goedendag,

    Cow18 dank je wel voor het uitleggen van de code. Ik was er zelf ook al een eind mee met het ontleden van de code.
    Het klopt inderdaad wat VenA zegt, maar wanneer ik er nog eens 4 regels aan toevoeg bijvoorbeeld dan worden er meer bladen afgedrukt.
    Zoals in het eerste voorbeeld had ik 7 componenten op 3 bladen afgedrukt precies zoals ik het wilde.
    Voeg ik er bijvoorbeeld 4 componenten aan toe dan krijg ik de 4 componenten wel te zien, maar op 4 bladen ipv op 2 bladen.
    De bedoeling was dan dat alleen de 4 componenten afgedrukt zou worden.

    Als voorbeeld heb ik er 2 pdf bijgedaan.
    Test afdrukken is het bereik zoals in het eerste voorbeeld, zoals het bedoeld is.
    Test afdrukken 02 is het bereik na invoering van 4 nieuwe componenten.
    Bijgevoegde bestanden Bijgevoegde bestanden

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