XL 2016 VBA - Impression - problème lignes et colonnes

Olivierporcinet

XLDnaute Nouveau
Bonjour,

Lors de l'impression, les largeurs et hauteurs de colonnes ne sont pas respectées.

Je suis obligé de "renvoyer à la ligne automatiquement".

Comment faire ?

D'autres programmations possibles ?

Merci.
 

Pièces jointes

  • XXXXXXXXX - TESTTTT - Ouvriers - Emploi du temps - TYPE - Copie - Copie.xlsm
    28.9 KB · Affichages: 13

TooFatBoy

XLDnaute Barbatruc
Effectivement, c'est généralement ce l'on fait : une feuille, que l'on met au bon format une fois pour toutes, dans laquelle on copie les données à imprimer.
Voir l'exemple en pièce jointe, utilisant la macro suivante :
VB:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'
Dim MaPlage As Range

    If Left(Sh.CodeName, 5) <> "Feuil" Then Exit Sub
    If Target.Row <> 2 Then Exit Sub
    If Target.Column < 2 Or Target.Column > 7 Then Exit Sub
    Cancel = True

    Set MaPlage = Sh.Range("A3:A20").Offset(0, Target.Column - 1)

    Application.ScreenUpdating = False
    Range("t_OM[Travail]").Value2 = MaPlage.Value2
    Sheets("OM").PrintPreview

End Sub

Un double-clic sur un prénom rempli le tableau de l'ordre de mission et affiche l'aperçu avant impression.
Dans ce code il faudrait ajouter la mise à jour de la date dans le texte de l'ordre de mission, et probablement faire d'autres ajustements.
 

Pièces jointes

  • Olivierporcinet (TFB-001).xlsm
    40.2 KB · Affichages: 0

Discussions similaires

Réponses
7
Affichages
563

Statistiques des forums

Discussions
314 863
Messages
2 113 650
Membres
111 930
dernier inscrit
fab_met