Printen met loop

[Rusty1979]

Hallo,

Ik heb een vraag over het printen van loonstroken met een loop.

Op tabblad 'Temp' staat een lijst met medewerkers (deze lijst heeft een variabele lengte).
De loop in mijn macro kopieert 1 voor 1 de personeelsnummers (uit kolom A) naar cel D1 op tabblad 'Invoerblad' (waar vervolgens allemaal verticaal.zoek formules de gegevens uit een database zoeken).

'Kopieer alle personeelsnummers 1 voor 1 naar het Invoerblad
    Sheets("Temp").Select
    With Sheets("Temp")
    x = 0
    Do While x <= .Range("A65536").End(xlUp).Row
    x = x + 1
    Sheets("Invoerblad").Range("D1").Value = .Cells(x, 1)
    Sheets("Invoerblad").PrintOut Copies:=1
    Loop
    End With

Op zich werkt de loop prima, alleen ik krijg er altijd één extra pagina uit, waarop allemaal #N/B's staan.
Het lijkt er dus op dat de loop ná het laatste personeelslid nog een blanco cel kopieert naar het invoerblad en dan pas stopt.
Eigenlijk zou hij gewoon bij het laatste personeelslid moeten stoppen.

Weten jullie welke aanpassing ik in de code moet doen om dit te voorkomen?

 

[rebmog]

Ik heb jou code iets aangepast. Test maar of het nu goed gaat.

With Sheets("Temp")
    x = 1
    Do While x <= .Range("A65536").End(xlUp).Row
    Sheets("Invoerblad").Range("D1").Value = .Cells(x, 1)
    Sheets("Invoerblad").PrintOut Copies:=1
    x=x+1
    Loop
End With

 

[Rusty1979]

Topper, thanks voor de reactie, het werkt nu goed!