VBA: comment imprimer une zone d'une feuille excel
Résolu/Fermé
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
14 janvier 2024
-
1 nov. 2012 à 12:15
GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018 - 3 janv. 2017 à 23:52
GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018 - 3 janv. 2017 à 23:52
A voir également:
- Code vba pour imprimer une feuille excel
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Imprimer tableau excel sur une page - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
1 nov. 2012 à 15:55
1 nov. 2012 à 15:55
Bonjour,
Bonne suite
Private Sub CommandButton7_Click() 'Imprimer
Dim lgdeb, lgfin, cldeb, clfin As Integer
MsgBox " Etes-vous sur de vouloir imprimer ?"
lgdeb = 1 + TrimB * decalC
cldeb = 67
lgfin = lgdeb + 30
clfin = 81
'adaptez le nom de la feuille
Sheets("Feuil1").Select
Range(Cells(lgdeb, cldeb), Cells(lgfin, clfin)).Select
Selection.PrintOut
ou
Sheets("Feuil1").Range(Cells(lgdeb, cldeb), Cells(lgfin, clfin)).PrintOut
End Sub
Bonne suite
2 nov. 2012 à 09:59
Pouvez-vous me dire aussi comment je peux poser la question en n'ayant la possibilité de répondre non et sortir de l'impression svp?
2 nov. 2012 à 23:46
3 nov. 2012 à 08:06
je poste quand meme.
Private Sub CommandButton7_Click() 'Imprimer Dim lgdeb, lgfin, cldeb, clfin As Integer Dim Msg, Style, Title, Help, Ctxt, Response, MyString '------------ 'Aide EXCEL 'Dim Msg, Style, Title, Help, Ctxt, Response, MyString 'Msg = "Souhaitez-vous continuer?" ' Définit le message. 'Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons. 'Title = "Démonstration de MsgBox " ' Définit le titre. 'Help = "DEMO.HLP" ' Définit le fichier d'aide. 'Ctxt = 1000 ' Définit le contexte de ' la rubrique. ' Affiche le message. 'Response = MsgBox(Msg, Style, Title, Help, Ctxt) 'If Response = vbYes Then ' L'utilisateur a choisi Oui. ' MyString = "Oui" ' Effectue une action. 'Else ' L'utilisateur a choisi Non. ' MyString = "Non" ' Effectue une action. 'End If '--------------- Msg = " Etes-vous sur de vouloir imprimer ?" Title = "Impression Document " ' Définit le titre. Style = vbYesNo + vbExclamation + vbDefaultButton2 ' Définit les boutons. Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ' L'utilisateur a choisi Oui. lgdeb = 1 + TrimB * decalC cldeb = 67 lgfin = lgdeb + 30 clfin = 81 'adaptez le nom de la feuille Sheets("Feuil1").Select Range(Cells(lgdeb, cldeb), Cells(lgfin, clfin)).Select Selection.PrintOut End If End SubBonne suite
3 janv. 2017 à 23:52
Pourriez vous m'expliquer la configuration de lgdeb, lgfin, cldeb, clfin par rapport au format de la plage a imprimer ou alors par rapport au format de la feuille d´impression.
Je souhaite imprimer des etiquettes 10.5 cm * 10.5 cm et j´aimerais adapter votre code.
De plus a quoi correspond TrimB * decalC?
Merci d´avance de votre réponse.
3 nov. 2012 à 11:40