VBA: comment imprimer une zone d'une feuille excel
Résolu
mod77
Messages postés
1320
Date d'inscription
Statut
Membre
Dernière intervention
-
GermPeru Messages postés 175 Statut Membre -
GermPeru Messages postés 175 Statut Membre -
Bonjour,
L'aide de VB ne m'apporte rien alors voici mon problème:
J'ai défini les paramètres nécessaire pour imprimer une zone d'une feuille mais je ne trouve pas la bonne instruction pour cela. La seule que je connaisse est après:
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
lg fin = lgdeb + 30
clfin = 81
Worksheets(Array(" ")).PrintOut
End Sub
Quelqu'un peut-il m'aiguiller SVP?
Merci
--
Savoir dire NON est un devoir et une force! N'ayez pas peur! L'union fait la force!
Passez en résolu si ça l'est!
L'aide de VB ne m'apporte rien alors voici mon problème:
J'ai défini les paramètres nécessaire pour imprimer une zone d'une feuille mais je ne trouve pas la bonne instruction pour cela. La seule que je connaisse est après:
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
lg fin = lgdeb + 30
clfin = 81
Worksheets(Array(" ")).PrintOut
End Sub
Quelqu'un peut-il m'aiguiller SVP?
Merci
--
Savoir dire NON est un devoir et une force! N'ayez pas peur! L'union fait la force!
Passez en résolu si ça l'est!
1 réponse
-
Bonjour,
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-
-
-
Bonjour,
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 Sub
Bonne suite- Bonjour f894009,
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.
-
-
