Printe samme tekst i 2 eksemplarer

Er der en der kan fortælle hvordan man kan få programmet til at printe det samme man lige har printet så man får to sider med det samme.

Jeg har lavet så jeg kan indtaste

Variant Nummer
Model Beskrivelse
Valgfri Tekst

og så er der så man kan indtaste start nummer og slut nummer. Altså hvis jeg skriver fx 966 til 969 får jeg printet 4 sider ud med hvert sit nummer.

Koden til at sætte i gang med at printe:

If txtFrom.Text = "" Then
 
MsgBox "der skal angives et tal"
 
Else

    nNumber = txtFrom.Text
    
       If txtTo = "" Then
      
       'der er kun angivet start
       Udskriv
       'MsgBox "der udskrives 1 blanket"
    
        Else
     
       'der er angivet både start og slut
       For nNumber = txtFrom.Text To txtTo.Text
       Udskriv

       Next

       End If
    
End If

Kan man ikke sætte et eller andet ind som fortælller den at den skal printe to sider ud med fx 966 før den tæller op og printer næste side ud med nummer 967