Zone d'impression

Résolu

Bhuret -
Bhuret - 6 août 2015 à 18:33

Bonjour à tous!
La macro ci dessous me permet de sélectionner une plage bien défini à partir de la cellule active.
comment pourrais je définir la plage sélectionnée comme la zone d'impression puis lancer l'aperçu avant impression de la plage sélectionnée.

    Sub SelectPlage()
   
          ActiveCell.CurrentRegion.Select
          Colonne = ActiveCell.Column
          Ligne = ActiveCell.Row
          Feuil1.Range(Cells(Ligne, Colonne), Cells(Ligne + 34, Colonne + 12)).Select
          
    End Sub

Merci

Afficher la suite

A voir également:

Zone d'impression
Spouleur d'impression - Guide
Alternative zone telechargement - Accueil - Outils
Impression livret a5 - Guide
Impression ecran samsung - Guide
Carrefour impression documents - Forum Imprimante

2 réponses

Réponse 1 / 2

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

bonjour

ca se fait tout seul avec l'enregistreur de macro !!!

Bhuret

Oui mais la plage que ma macro selectionne est dynamique, c'est n'importe quelle plage à partir de la cellule active
Merci

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

eh bé...


colonne = ActiveCell.Column
 ligne = ActiveCell.Row
   
    ActiveSheet.PageSetup.PrintArea = Range(Cells(ligne, colonne), Cells(ligne + 34, colonne + 12))
    ActiveWindow.SelectedSheets.PrintPreview

ou + en VBA

Dim colonne As Integer, ligne As Long

    colonne = ActiveCell.Column
    ligne = ActiveCell.Row
   
     With ActiveSheet
        .PageSetup.PrintArea = Range(Cells(ligne, colonne), Cells(ligne + 34, colonne + 12))
        .PrintPreview
    End With
End Sub

Michel

Bhuret

Merci Monsieur Michel pour le temps que tu m'accorde.
l'execusion de la 1ère macro génère une erreur dont le numero est 438 qui dit: Propriété ou methode non géréé par cet objet.
La seconde macro marche mais il commence l'apercu par la 1ère page de la feuille et non l'apercu de la plage selectionnée.
Merci

Bhuret > Bhuret

Merci à vous!
J'ai eu la réponse sur un autre forum
Voici le code:

Sub SelectPlage()
       ActiveCell.Resize(34, 12).Select
       ActiveSheet.PageSetup.PrintArea = ActiveCell.Resize(34, 12).Address
       ActiveCell.Resize(34, 12).PrintPreview
 End Sub

Discussions similaires

Historique d'impression

détail facture sfr data ?

Ou trouver l'historique d'impression ?

commenr trouver des document deja imprimer

Erreur la zone de données passée à un appel système est insu

Votre réponse

Discussions similaires