Impression par VBA
Résolu
Bourrique66
Messages postés
166
Statut
Membre
-
Bourrique66 Messages postés 166 Statut Membre -
Bourrique66 Messages postés 166 Statut Membre -
Bonjour,
J'ai un tableau que je remplis tous les jours. Une fois par semaine, j'ai besoin d'imprimer les dix dernières lignes qui ont été saisies, et j'aimerais savoir s'il est possible de le faire à l'aide d'une macro, l'impression concerne les colonnes de B à I. Je joins un fichier pour exemple.
Merci de prendre le temps de vous intéresser à mon problème.
http://www.cjoint.com/data3/EKlrqW6ys8L_essai.xlsx
J'ai un tableau que je remplis tous les jours. Une fois par semaine, j'ai besoin d'imprimer les dix dernières lignes qui ont été saisies, et j'aimerais savoir s'il est possible de le faire à l'aide d'une macro, l'impression concerne les colonnes de B à I. Je joins un fichier pour exemple.
Merci de prendre le temps de vous intéresser à mon problème.
http://www.cjoint.com/data3/EKlrqW6ys8L_essai.xlsx
A voir également:
- Impression par VBA
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Impression ecran samsung - Guide
- Problème impression pdf texte manquant - Forum PDF
- Impression miroir word - Guide
3 réponses
Bonjour
Voila une macro pour les 10 dernière ligne
A+
Maurice
Voila une macro pour les 10 dernière ligne
Sub Macro1()
Nlig = Range("B" & Rows.Count).End(xlUp).Row
ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
ActiveSheet.PageSetup.PrintArea = "$B$" & Nlig - 9 & ":$I$" & Nlig
End Sub
A+
Maurice
Bonjour
Cdlmnt
Const NF = "Feuil1"
Const codeb = "B"
Const cofin = "I"
Const nbli = 10
Sub Imprime()
Dim plage As String, lifin As Long
With Sheets(NF)
lifin = .Range(codeb & Rows.Count).End(xlUp).Row
plage = codeb & lifin - nbli + 1 & ":" & cofin & lifin
.PageSetup.PrintArea = plage
.PrintOut
End With
End Sub
Cdlmnt
