Probleme sur ma macro d'impresion

cpeens · 13 Janvier 2011

Bonjour

je me trouve devant un probleme j'utilise cette macro pour imprimer le probleme est que celui ci ne m'imprime que la premiere ligne j'ai regarder un peut ou sa pouvais venir et semblerais t'il ma listview ici L1 ne me renvois qu'une seul ligne quelqu'un pourait il me dire ou sa peut enir svp merci

Code:

   Dim ligne As Long
Dim i As Long
  ligne = 2
 With Sheets("Imprime").[A2:D1000].ClearContents

For li = 1 To L1.ListItems.Count
      
      

 Sheets("Imprime").Cells(ligne, 1) = L1.ListItems(li)
 Sheets("Imprime").Cells(ligne, 2) = L1.ListItems(li).ListSubItems(1)
  Sheets("Imprime").Cells(ligne, 3) = L1.ListItems(li).ListSubItems(2)
   Sheets("Imprime").Cells(ligne, 4) = L1.ListItems(li).ListSubItems(3)
 Sheets("Imprime").Cells(ligne, 5) = L1.ListItems(li).ListSubItems(4)
Sheets("Imprime").Cells(ligne, 6) = L1.ListItems(li).ListSubItems(5)
 Sheets("Imprime").Cells(ligne, 7) = L1.ListItems(li).ListSubItems(6)
 Next li
 End With

Sheets("Imprime").Select
Dim MyValue As Byte
MyValue = MsgBox("Voulez-vous imprimer ?", vbYesNo + vbDefaultButton1)
If MyValue = vbNo Then Exit Sub
With ActiveSheet
With .PageSetup
.PrintArea = "$A$1:$G$" & Cells.Find("*", , xlValues, , 1, 2, 0).Row
.PaperSize = xlPaperA4
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
.PrintHeadings = False
End With
.PrintOut 1
End With
imprime.cache

Compte Supprimé 979 · 13 Janvier 2011

Re : Probleme sur ma macro d'impresion

Salut Cpeens

Pour ta PrintArea, pourquoi ne pas faire plutôt

Code:

.PrintArea = "$A$1:$G$" & Range("A" & Rows.Count).End(XlUp).Row

Peut-être ça le soucis !?

A+

cpeens · 14 Janvier 2011

Re : Probleme sur ma macro d'impresion

Bonjour brunom45 j'ai essayer ta modification malheureusement celui ci n'apporte rien de plus j'ai détailler ma macro le probleme proviendrais de la copie des element de ma Listview vers la feuille Imprime car il ne me copie qu'une ligne donc ma question est comment faire pour copier des données de ma listview vers ma feuil Imprime

merci pour ceux qui m'aiderons à bientot

Compte Supprimé 979 · 14 Janvier 2011

Re : Probleme sur ma macro d'impresion

Re,

Ta ligne de copie sur la feuille "Imprime" n'est pas incrémentée !?

Code:

Dim ligne As Long
Dim i As Long
ligne = 2
With Sheets("Imprime").[A2:D1000].ClearContents
  For li = 1 To L1.ListItems.Count
    Sheets("Imprime").Cells(ligne + li - 1, 1) = L1.ListItems(li)
    Sheets("Imprime").Cells(ligne + li - 1, 2) = L1.ListItems(li).ListSubItems(1)
    Sheets("Imprime").Cells(ligne + li - 1, 3) = L1.ListItems(li).ListSubItems(2)
    Sheets("Imprime").Cells(ligne + li - 1, 4) = L1.ListItems(li).ListSubItems(3)
    Sheets("Imprime").Cells(ligne + li - 1, 5) = L1.ListItems(li).ListSubItems(4)
    Sheets("Imprime").Cells(ligne + li - 1, 6) = L1.ListItems(li).ListSubItems(5)
    Sheets("Imprime").Cells(ligne + li - 1, 7) = L1.ListItems(li).ListSubItems(6)
  Next li
End With

A+

cpeens · 15 Janvier 2011

Re : Probleme sur ma macro d'impresion

re brunom45 je comprend mieux mon erreur je te remercie j'essais dés lundi car mon fichier est au travail en tous cas grand merci à toi à lundi pour de dire ce qui en est bon week end

Probleme sur ma macro d'impresion

cpeens

XLDnaute Occasionnel

Compte Supprimé 979

Guest

cpeens

XLDnaute Occasionnel

Compte Supprimé 979

Guest

cpeens

XLDnaute Occasionnel

Discussions similaires