Imprimer un tableau fractionné

[p'tite véro]

Bonjour à tous,

Est-il possible d'imprimer un tableau fractionné qui ne laisse apparaître que les informations visibles à l'écran (hors print écran bien sur).
Merci pour vos réponses avisées,
Bonne journée

 

[CBernardT]

Re : Imprimer un tableau fractionné

Bonjour p'tite véro,

La réponse est dans la question !😀

L'impression ne prend en compte que ce qui se voit à l'écran dans chaque partie du fractionnement

 

[kjin]

Re : Imprimer un tableau fractionné

Bonjour, re Bernard 🙂,

L'impression ne prend en compte que ce qui se voit à l'écran dans chaque partie du fractionnement

Bin pas chez moi 😱
Donc pour répondre avec si peu d'info, peut-être boucler sur tous les volets de la fenêtre et récupérer l'adresse des cellules visibles, et copier l'ensemble dans une feuille temporaire et imprimer

Sub d()
With ActiveWindow
    For i = 1 To .Panes.Count
        rng = rng & .Panes(i).VisibleRange.Address & ", "
    Next
    rng = Left(rng, Len(rng) - 2)
    Range(rng).Copy Sheets("feuil2").Range("A1")
    With Sheets("feuil2")
        .PrintPreview
        '.PrintOut
    End With
End With

End Sub

A+
kjin