Printen tellijsten

[basblok]

Geacht forum,

Het lukt mij niet om de tellijsten te printen.
Als je op het tabblad Overzicht tellijsten kikt op een wedstrijdnummer dan krijg je de printweergave van het betreffende formulier te zien maar zonder de gegevens van de tegenstander.
Wie kan mij hierbij de helpende hand bieden?

 

[AHulpje]

Ik denk dat je iets harder op het knopje moet drukken...
Of hier een voorbeeld plaatsen.

 

[basblok]

 

[AHulpje]

Ok, ok, ik had duidelijker moeten zijn, een voorbeeldDOCUMENT.

 

[basblok]

Ik heb geen documenten beschikbaar, het is een bestand waaruit ik probeer pagina's te printen. Wat bedoel je precies, of kom je er nu wel uit?

 

[AHulpje]

Ik zal proberen nog duidelijker te zijn: het bestand waaruit je probeert pagina's te printen.

 

[basblok]

Ik ga het opnieuw proberen.

 

[basblok]

Ik weet nog niet of het nu wel goed gaat.

 

[AHulpje]

Is het bestand te groot?
Treedt het probleem ook op in dit bestand: https://www.helpmij.nl/forum/threads/wijzigen-naam-tabblad-lukt-niet.971920/#post-6389876

 

[AHulpje]

Kolom F moet kolom G zijn, zie Module1

Sub Wedstrijden_tellijsten()
    If ActiveCell.Row = 1 Or ActiveCell.Row > Sheets("variabelen").Cells(2, 1) Or ActiveCell.Column <> 1 Then
        MsgBox "Klik EERST op het juiste wedstrijdnummer !", vbCritical, "LET  OP !"
        Exit Sub
    End If

    r = ActiveCell.Row
    With Sheets("tellijst")
        .Unprotect
        .Cells(1, 3) = Cells(r, 1)
        .Cells(1, 5) = Cells(r, 3)
        .Cells(1, 10) = Cells(r, 2)
        .Cells(3, 3) = Cells(r, 4)
        .Cells(3, 6) = Cells(r, 5)
        .Cells(3, 10) = Cells(r, 7)   'kolom F moet kolom G zijn
        .Cells(5, 3) = Cells(r, 6)
        .Select
        .Protect
    End With
End Sub

 

[basblok]

De macro's zijn hier uitgeschakeld.
Ik kan de tellijsten niet printen,

 

[AHulpje]

Vervang Sub Wedstrijden_tellijsten() in je eigen bestand door de versie uit bericht #10.