Impression par VBA

Résolu/Fermé

Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - 11 nov. 2015 à 18:21
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - 11 nov. 2015 à 20:07

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

A voir également:

Impression par VBA
Spouleur d'impression - Guide
Fatima a lancé l'impression de plusieurs documents, mais elle se rend compte qu'il n'y a presque plus d'encre dans l'imprimante. elle décide alors de n'imprimer que son cv, en un seul exemplaire. faites les opérations nécessaires dans le gestionnaire d'impression ci-dessous. ✓ - Forum Word
Find vba - Astuces et Solutions
Logiciel impression photo - Télécharger - Albums photo
Vba attendre 1 seconde ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

Maurice
11 nov. 2015 à 19:01

Bonjour
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

Réponse 2 / 3

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
11 nov. 2015 à 19:11

Bonjour

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

Réponse 3 / 3

Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 2
11 nov. 2015 à 20:07

Trop fort ça marche nickel du premier coup

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Transparence en tete et bas de page

Erreur d'exécution 13 Incompatibilité de type

Historique d'impression

ouverture d'un fichier excel à partir d'un code VBA