VBA: comment imprimer une zone d'une feuille excel

Résolu/Fermé
Signaler
Messages postés
1277
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 mars 2021
-
Messages postés
172
Date d'inscription
mercredi 7 décembre 2016
Statut
Membre
Dernière intervention
27 mars 2018
-
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


1 réponse

Messages postés
16114
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 novembre 2021
1 562
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
1277
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 mars 2021
52
Merci f894009,

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?
Messages postés
1277
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 mars 2021
52
Je la pose sur un autre poste.
Messages postés
16114
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 novembre 2021
1 562
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
Messages postés
172
Date d'inscription
mercredi 7 décembre 2016
Statut
Membre
Dernière intervention
27 mars 2018
>
Messages postés
16114
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 novembre 2021

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.
Messages postés
1277
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 mars 2021
52
Merci