[Semi-Résolu] Problème d'impression

Bonsoir,

J'ai encore un soucis avec un code VBA.

Dans le fichier ci-joint, après avoir utilisé

Rows("11:" & LigFin).EntireRow.AutoFit

quelques lignes apparaissent à l'impression sur une seule ligne, mais elles en prennent deux en espace (avec une ligne vide), comme si un retour à la ligne invisible était présent (ou comme si le retour à la ligne à l'écran se reportait à l'impression). Voyez par exemple la ligne commençant par 200.12.125.254.

Savez-vous comment résoudre ce problème ?

https://www.excel-pratique.com/~files/doc/Mise_en_page_20080617.xls

Avec mes bonnes salutations.

Salut le forum

Yvouille, tu as mis(e) ta ficelle en résolue....

Merci de donner en retour la réponse que tu as trouvé(e), celà pourrait

aider quelqu'un(e) d'autre.

Mytå

Mytå,

Après quelques jours d'attente, j'ai indiqué mon problème comme résolu - bien que je n'avais pas reçu de solution - car j'ai essayé de trouver de l'aide autrement et que je ne considérais pas correcte de vous laisser continuer à chercher peut-être inutilement.

Mais je peux te rassurer, je n'ai toujours pas de solution !

En aurais-tu une ?

Bonnes salutations.

Re le forum

Yvouille, essaye avec cette ligne de code à la place

Rows("11:" & LigFin).EntireColumn.AutoFit

Mytå

Salut le forum

Yvouille, le multi-postage n'est pas interdit, mais faut du moins aviser les autres.

Supprimer les retours à la ligne automatique, si tu ne veux pas modifier la largeur des colonnes, serait la solution.

Mytå

Re le forum

Je te fournit une réponse, le texte sera ajusté à la largeur de la colonne.

Sub Tri_Mise_en_page_finale_Total_Enregistrement()

    Dim LigFin As Long, ShtR As Worksheet
    ' Définir le nom de l'objet ShtR
    Set ShtR = Sheets("RepListeQuellensteuer")
    LigFin = ShtR.Range("G" & Rows.Count).End(xlUp).Row

    With ShtR.Rows("11:" & LigFin)
    .WrapText = False
    .ShrinkToFit = True
    End With

End Sub

Mytå

P.S. J'ai fourni la même solution sur l'autre forum.

Salut le forum

Pour revenir au format de base après l'impression.

Sub Tri_Mise_en_page_finale_Normal()

    Dim LigFin As Long, ShtR As Worksheet
    ' Définir le nom de l'objet ShtR
    Set ShtR = Sheets("RepListeQuellensteuer")
    LigFin = ShtR.Range("G" & Rows.Count).End(xlUp).Row

    With ShtR.Rows("11:" & LigFin)
    .WrapText = True
    .ShrinkToFit = False
    End With

End Sub

Mytå

Mytå,

Avec ta solution, certains textes sont vraiment trop rapetissés, à la limite de l'illisibilité. Je ne peux donc malheureusement pas utiliser ton code.

J'ai remarqué que mon problème vient lorsque des textes sont à la limite d'être trop long (ils sont visibles à l'écran et à l'impression sur une seule ligne, mais ils remplissent toutes la largeur de la colonne) ; bizarrement la ligne s'ajuste alors sur deux lignes, dont une vide !!

Tant pis !

Meilleures salutations.

Re le forum

Yvouille, en jouant sur la mise en page, on va surement finir par trouver de quoi !

Sub Tri_Mise_en_page_finale_Total_Enregistrement()

    Dim LigFin As Long, ShtR As Worksheet
    ' Définir le nom de l'objet ShtR
    Set ShtR = Sheets("RepListeQuellensteuer")
    LigFin = ShtR.Range("G" & Rows.Count).End(xlUp).Row

    Rows("11:" & LigFin).EntireColumn.AutoFit

    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$J$" & LigFin
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 10
    End With

End Sub

Mytå

P.S. J'ai supprimé le mode [Résolu] pour permettre d'avoir d'autres solutions

Mytå

J’ai testé ton nouveau code.

Le texte est alors rapetissé et centré sur la feuille avec un grand vide à gauche et à droite. Comme autres problèmes, certaines lignes paraissent - à l’impression - avoir été mise en gras et mes titres dans les cellules A1 à A10 font que la colonne A devient bien trop large pour les chiffres faisant proprement partie de la liste et inscrits depuis la cellule A11.

J’ai aussi tenté quelques modifications telles que celle inscrite ci-dessous, mais sans succès non plus.

    Rows("11:" & LigFin).EntireColumn.AutoFit

    With ActiveSheet.PageSetup
        .PrintArea = "$b$1:$J$" & LigFin   MODIF YVOUILLE
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 10
    End With
    Columns("A:A").ColumnWidth = 15    MODIF YVOUILLE
    With ActiveSheet.PageSetup              idem
        .PrintArea = "$a$1:$J$" & LigFin     idem
    End With                                idem

Toutefois, bien que ce problème soit un peu embêtant, il peut être accepté.

Je suis donc un peu gêné de vous laisser continuer à chercher une solution à mon problème. Pour moi ce problème pourrait à nouveau être mis sur « Résolu ».

Meilleures salutations.