Macro printen aanpassen

[ppms]

Hallo,

Is het mogelijk dat als ik macro printen aan stuur op blad scorelijst koppelavond in cel B4 van getal 1 bij het volgende A4 printen het getal 4 wordt en 7, 10 enz.

Nu wordt B4 steeds maar met een verhoogd 1, 2, 3, enz. en dat zou nu verhoogd moeten met 1, 4, 7, enz. omdat er op een A4 drie teams te gelijk staan. Ik hoop dat ik het een beetje duidelijk heb uitgelegd.

Zie bijlage.

Groet PPMS

 

[Hoornvan]

ppms ,

Kijk eens in de cel B18 en zie de formule, die is makkelijk aan te passen dacht ik.

Of bedoel je dit niet?

 

[ppms]

Hoornvan,

Op een A4tje staan drie strookjes voor b.v. team 1, team 2 en team 3 dit wordt uitgeprint, op het volgende A4tje zou dan het team 4, team 5 en team 6 moeten worden geprint.

Cel B4 moet steeds met drie punten omhoog gaan, nu gaat cel B4 met een punt omhoog. Als ik nu een print commando geef van 1 tot 4 wordt cel B4 eerst 1, dan 2, dan 3 en dan 4 zijn dus 4 A4tjes. Maar 2 en 3 staan al op het eerste A4tje, dus springt cel B4 ineens van 1 naar 4 dan worden er maar twee A4tjes geprint met zes strookjes van team 1 t/m 6.

Het is lastig om het te omschrijven en ik hoop dat het nu te snappen is. Ben ook niet zo kei in iets te omschrijven.

Groet PPMS

 

[Breuk132]

ppms,

Hiermee gaat ie met 3 omhoog.

Private Sub cmdAfdrukken_Click()
Dim intVanKoppel As Integer
Dim intTotKoppel As Integer
Dim intKoppel As Integer
' Haal variabelen van formulier
    intVanKoppel = Val(txtVanKoppel)
    intTotKoppel = Val(txtTotKoppel)
' Print voor elk koppel de scorelijst koppelavond uit
    intKoppel = 0
    Range("B4") = intVanKoppel
    Do
' Wijzig Kopppelnummer in cel B4

        Range("B4") = Range("b4") + 3
        intKoppel = intKoppel + 1
' Selecteer blad
        Range("A1:E42").Select
' Afdrukken werkblad
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        
    Loop Until intKoppel = WorksheetFunction.RoundUp((intTotKoppel - intVanKoppel + 1) / 3, 0)
    
    Range("B4").Select
    Unload Me
End Sub

 

[ppms]

Breuk123,

Het afdrukken gaat nog niet helemaal goed, heb het idee dat A4tje 1 wordt overgeslagen en hij stopt bij A4tje 3 er staan dan een 7 in cel B4 maar ik gaf opdracht 30 teams te printen dus 10 A4tjes. Zou een van jullie daar nog eens even naar kunnen kijken. Cel B4 springt wel inderdaad van 1 naar 4 naar 7.

Groet PPMS

 

[Hoornvan]

ppms,

Ik had het dus inderdaad verkeerd begrepen.

Ik heb onderstaande regel even uitgeschakeld door er een ' voor te zetten.

ActiveWindow.SelectedSheets.PrintOut Copies:=1

De macro loopt door tot dat er in B4 31 staat. (afdrukken van 30 taems)
Dus ik zou niet weten wat er dan fout gaat.

 

[ppms]

Breuk123,

Alleen het eerste A4tje wordt niet afgedrukt, team 1 t/m 3 hij print namelijk gelijk team 4 t/m 6, dan keurig team 7 t/m 9 enz. Heb dit uitgeprobeerd. Ben zelf met de macro bezig geweest maar kom er niet uit.

Zou je daar nog even naar willen kijken ik zou er heel blij mee zijn.

Groet PPMS

 

[Breuk132]

Je hebt gelijk. Rode stukje moet er nog tussen. Hij begint inderdaad met +3 en dan pas te printen, slaat dan 1e pagina over.

[COLOR="DarkRed"]' Selecteer blad
    Range("A1:E42").Select
' Afdrukken werkblad
    ActiveWindow.SelectedSheets.PrintOut Copies:=1[/COLOR]
        
    Do
' Wijzig Kopppelnummer in cel B4
        Range("B4") = Range("b4") + 3
        intKoppel = intKoppel + 1
' Selecteer blad
        Range("A1:E42").Select
' Afdrukken werkblad
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Loop Until intKoppel = WorksheetFunction.RoundUp((intTotKoppel - intVanKoppel + 1) / 3, 0)

 

[ppms]

Breuk123,

Heel goed dit stukje er tussen, wat nu alleen nog is dat als ik een commando geef print team 1 t/m 31 wordt ook team 34 t/m 36 uitgeprint, het is geen ramp maar het zou super zijn als er geen A4tje extra wordt geprint.

Groet PPMS

 

[Breuk132]

Mooi dat het nu werkt. :thumb:
Voor dat laatste probeer het door intKoppel = 0 te veranderen in intKoppel = 1.

 

[ppms]

Hallo,

Het programma voor de eerste keer gebruikt op de club, dit ging niet helemaal goed en de vraag is kunnen jullie nog eens naar dit stukje VBA kijken wat de oorzaak kan zijn.

Wat ging er niet goed, tot 3 A4jes ging het goed maar dan stop de macro ermee. Dit doet hij dus goed 1, 4 en dan 7 maar er komt geen 10, 13 enz. hij blijft dus hangen op 7.

Heb zelf van alles geprobeerd maar daar is schiet mijn kennis van VBA tekort.

Private Sub cmdAfdrukken_Click()
Dim intVanKoppel As Integer
Dim intTotKoppel As Integer
Dim intKoppel As Integer
' Haal variabelen van formulier
    intVanKoppel = Val(txtVanKoppel)
    intTotKoppel = Val(txtTotKoppel)
' Print voor elk koppel de scorelijst koppelavond uit
    intKoppel = 0
    Range("B4") = intVanKoppel
    ' Selecteer blad
    Range("A1:E42").Select
' Afdrukken werkblad
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Do
' Wijzig Kopppelnummer in cel B4

        Range("B4") = Range("b4") + 3
        intKoppel = intKoppel + 1
' Selecteer blad
        Range("A1:E42").Select
' Afdrukken werkblad
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        
    Loop Until intKoppel = WorksheetFunction.RoundUp((intTotKoppel - intVanKoppel + 1) / 3, 0)
    
    Range("B4").Select
    Unload Me
End Sub

Groet PPMS

 

[Warme bakkertje]

Mis ik iets ?

Private Sub cmdAfdrukken_Click()
With Sheets("scorelijst koppelavond")
    For i = Val(txtVanKoppel) To Val(txtTotKoppel) Step 3
        .[B4] = i
        .[A1:E42].PrintOut Copies:=1
    Next
    .[B4] = 1
Application.Goto .[B4]
End With
Unload Me
End Sub

 

[ppms]

Hallo Warme bakkertje,

Deze macro ga ik morgenavond uit proberen en ik denk dit zit wel goed.

Heb iets aangepast in de macro na wat proberen, als in B4 het getal blijft staan van het aantal deelnemers.

Private Sub cmdAfdrukken_Click()
' Print voor elk koppel de scorelijst koppelavond uit
    With Sheets("scorelijst koppelavond")
    For i = Val(txtVanKoppel) To Val(txtTotKoppel) Step 3
        .[B4] = i
        .[A1:E42].PrintOut Copies:=1
    Next
    .[B4] = i - 3
Application.Goto .[B4]
End With
Unload Me
End Sub

Je leest zeker na morgenavond een reactie van mij.

Groet PPMS

 

[Warme bakkertje]

B4 wordt toch terug op 1 gezet na het printen
Wat jij doet is enkel de laatste i-waarde (afhankelijk van het aantal afdrukken) verminderen met 3

 

[ppms]

Hallo,

Heb gisteren avond het programma laten gebruiken op de vereniging en de personen die ermee werken waren zeer tevreden. De leden vonden het ook erg duidelijk dat de strookjes nu worden geprint.

Ik wil iedereen van Helpmij weer vriendelijk bedanken voor de hulp, zonder jullie was het mij niet gelukt.

Zal de vraag als opgelost zetten.

Groet PPMS