Automatisation des propriétés d'impression

Bonjour,

Je cherche à me créer une macro ou plutot un mini programme en basique pour changer les propriétés de l'impression.

En gros, je veux pouvoir faire de facon automatique:

Fichier/imprimer

Puis cliquez sur Propriété et modifier les valeurs qui se trouvent dans chaque onglet.

La function Printout me permet d'imprimer mais je ne trouve pas comment rentrer dans les propriétés, à part manuellement.

Merci pour votre aide

DAvid

Bonjour

As tu essayé

Sheets("Feuil1").PrintPreview

Merci banzai64 mais ce n'est pas exactement ce que je veux faire.

Print preview permet de faire un apercu avant impression.

Pour ma part, je souhaite régler les paramètres d'impressions avant d'imprimer. Comme par exemple couleur, taille papier.

De plus j'ai une imprimante un peu spéciale donc il me faudrait une fonction générique qui permet d'aller chercher le paramètre 1, 2, ... au lieu d'une fonction qui va chercher directement un paramètre prédéfini comme la couleur par exemple.

Cordialement

David

Bonjour

Mais à partir de l' aperçu tu peux intervenir sur tous les paramètres d'impression

Sinon il a quelque chose qui m'échappe

Wait & see

Bonjour,

Je suppose que c'est par code que tu veux intervenir sur les paramètres d'impression ?

Il te faut regarder du coté de PageSetup :

Sub Imprimer()

    With ActiveSheet.PageSetup

        'entête de page
        .LeftHeader = "&F" 'nom du classeur
        .CenterHeader = "&T" 'l'heure
        .RightHeader = "&A" 'nom de la feuille

        'pied de page
        .LeftFooter = "&P&"" / ""&N" 'coté gauche (numéro page sur nombre de pages)
        .CenterFooter = "Pied de de page centre" 'centre
        .RightFooter = "Pied de page droit" 'coté droit

        'marges
        .LeftMargin = Application.InchesToPoints(0.78)
        .RightMargin = Application.InchesToPoints(0.78)
        .TopMargin = Application.InchesToPoints(0.98)
        .BottomMargin = Application.InchesToPoints(0.98)
        .HeaderMargin = Application.InchesToPoints(0.51)
        .FooterMargin = Application.InchesToPoints(0.51)

        'etc...(à voir dans l'aide, curseur sur le mot puis F1)
        .PrintHeadings = False

        .PrintGridlines = False

        .PrintComments = xlPrintNoComments
        .PrintQuality = -3

        .CenterHorizontally = True
        .CenterVertically = True

        .Orientation = xlLandscape

        .Draft = False

        .PaperSize = xlPaperA4

        .FirstPageNumber = xlAutomatic

        .Order = xlDownThenOver

        .BlackAndWhite = False

        .Zoom = 100

    End With

    'aperçu avant impression
    ActiveSheet.PrintPreview

End Sub

Hervé.

Merci Herve et banzai, je vais essayer de m'en sortir avec tous vos conseils et je reviens vers vous si je m'en sors pas

Bonjour,

J'ai suivi vos conseils et j'arrive bien a faire varier les paramètres standards. Par contre pour ce qui est du spécifique il me faut obligatoirement l'intervention de l'opérateur.

Merci encore pour vos conseils

David