macro imprimer

[pouty]

<< Bonjour au forum,

<< Je reviens vers vous solliciter de l'aide :

<< les lignes sélectionnés dans la listview par des checbox et puis ensuite bouton imprimer qui envoie les donnés dans la feuil" imp " fonctionne mais je voudrais si on peut que cette macro considère les entetes de colonnes + mode paysages + et dernieres fonction quelle mette le total des pallettes + total poids en dessous

<< Je joins la macro que j'ai et merci à votre aide apporté .

<< ' Procedure : CommandButton8_Click
' 01/03/2007 20:42
' Utilisation :imprimer

Private Sub CommandButton8_Click()
Sheets("imp").Select
Cells.Select
Selection.ClearContents
ligne1 = 0
Sheets(nomf1).Select

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
ligne1 = Mid(ListView1.ListItems(i).Key, 2, 50)
Exit For
End If
Next i

If ligne1 = 0 Then
MsgBox ("Vous devez sélectionner une ligne")
Exit Sub
End If

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
'ligne1 = Mid(ListView1.ListItems(i).ListSubItems(1).Key, 2, 50)
ligne1 = Mid(ListView1.ListItems(i).Key, 2, 50)
dl1 = Sheets("imp").Range("A65536").End(xlUp).Row + 1
impression1
End If
Next i


impression2
End Sub




<< ' Procedure : impression1
' 01/03/2007 20:55
' Utilisation :copie des lignes de la feuille avec les données vers la feuille d'impression

'
Private Sub impression1()
Sheets(nomf1).Select
Rows(ligne1).Select
Selection.Copy
Sheets("imp").Select
Rows(dl1).Select
ActiveSheet.Paste
End Sub

' Procedure : impression2
' 01/03/2007 20:55
' Utilisation :

'
Private Sub impression2()
Sheets("imp").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[jp14]

Re : macro imprimer

Bonjour

Une première réponse et une piste

Pour mettre un titre il faut se positionner dans la feuille imp et paramétrer l'impression en utilisant dans le menu fichier la mise en page.

Concernant les calculs il faut rajouter dans la macro l'inscription des formules sur la dernière ligne, pour cela il faut utiliser l'enregistreur de macro et d'effectuer l'inscription des formules, puis modifier la macro obtenue au niveau de la ligne.



JP

 

[pouty]

Re : macro imprimer

<< Pour la mise en page ok pour modifier la macro pour avoir le total je patoge .

<< comment l'editer dans la macro !!

 

[jp14]

Re : macro imprimer

Bonjour (re)

Avec la feuille imp il serait plus facile de répondre à ta question.

JP

 

[pouty]

Re : macro imprimer

<< Je t'envoie le fichier

<< Merci

 

[pouty]

Re : macro imprimer

<< Voici le fichier


<< Merci pour votre aide

 

[jp14]

Re : macro imprimer

Bonsoir

Il faudrait des données (non confidentielles) dans la feuille.

JP

 

[pouty]

Re : macro imprimer

<< Excuse moi

<< J'ai mis des donnees dans la feuil imp

 

[jp14]

Re : macro imprimer

Bonsoir

Macro à tester

Sub Macro1()
Dim data1 As String
Dim dl1 As Long
With Sheets("imp")
dl1 = .Range("e65536").End(xlUp).Row + 1
    data1 = "=SUM(R2C:R" & dl1 - 1 & "C)"
    .Range("E" & dl1).FormulaR1C1 = data1
    .Range("F" & dl1).FormulaR1C1 = data1
    .Range("G" & dl1).FormulaR1C1 = data1
    .Range("H" & dl1).FormulaR1C1 = data1
 End With
End Sub

JP