VBA: comment imprimer une zone d'une feuille excel

Résolu/Fermé
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 - 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
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


A voir également:

1 réponse

f894009 Messages postés 16748 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2022 1 659
1 nov. 2012 à 15:55
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
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 52
2 nov. 2012 à 09:59
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?
0
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 52
2 nov. 2012 à 23:46
Je la pose sur un autre poste.
0
f894009 Messages postés 16748 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2022 1 659
3 nov. 2012 à 08:06
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
0
GermPeru Messages postés 172 Date d'inscription mercredi 7 décembre 2016 Statut Membre Dernière intervention 27 mars 2018 > f894009 Messages postés 16748 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2022
3 janv. 2017 à 23:52
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.
0
mod77 Messages postés 1276 Date d'inscription vendredi 10 juillet 2009 Statut Membre Dernière intervention 28 mars 2021 52
3 nov. 2012 à 11:40
Merci
0