Zone d'impression + Impression Spécifique VBA

Résolu/Fermé
GTA54 Messages postés 414 Date d'inscription jeudi 23 février 2012 Statut Membre Dernière intervention 7 août 2019 - 23 mai 2012 à 09:37
GTA54 Messages postés 414 Date d'inscription jeudi 23 février 2012 Statut Membre Dernière intervention 7 août 2019 - 25 mai 2012 à 10:18
Bonjour,

J'aimerais ajouté à ma Macro (qui est déjà bien conséquente) la fonction Impression !

Je vous explique le truc :

J'ai une feuille Excel ("Synoptic") qui regroupe les références de tous mes onglets (classé de A à Z).
Lorsque je veux voir quelques onglets spécifique (ex: "A", "H" et "Z") les uns a la suite des autres j'entre un numéro en face de la référence de l'onglet sur la première feuille ("Synoptic").
En faisant cela et en cliquant sur un bouton "Update" ma macro va trier et afficher les onglets (ex: "A", "H" et "Z") que j'aurai voulu sur une nouvelle feuille ("Process analysis")
NB: chaque onglet est un tableau, tous les tableaux sont de même largeur mais pas de même longueur ! Du coup, la zone d'impression ne sera jamais la même en longueur, il faut définir dans la macro pour que la zone soit automatique concernant la longueur.

C'est pourquoi j'aimerais un petit bout de macro qui me permettra (en créant un nouveau bouton, ca je sais faire) de définir la zone d'impression de ma feuille "Process Analysis" et de l'imprimer avec un format défini ! A savoir imprimer sur une imprimante que j'aurai défini (je suis relier à un réseau de plusieurs imprimantes), sur une feuille A3 et que le tableau prenne la feuille complète (qu'il ne soit pas rikiki sur la feuille A3 ou alors qu'il ne dépasse pas de la feuille). Peu importe le nombre de page en "longueur" mais la largeur doit être bien respectée !

Je ne sais pas si c'est possible, mais si quelqu'un est balèze en macro je pense qu'il peut se faire plaisir ! ^^

En tout cas merci d'avance pour vos réponses.

Et je suis là pour toute question ! Merci !


A voir également:

3 réponses

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 216
24 mai 2012 à 16:40
Bonjour,

ajuster à une page en largeur ?
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With

eric
4
GTA54 Messages postés 414 Date d'inscription jeudi 23 février 2012 Statut Membre Dernière intervention 7 août 2019 27
25 mai 2012 à 09:18
Wouw Merci ! Déjà un bon début.

Mais est-ce que c'est possible de définir que cette page soit en "Paysage" aussi.

Et est-il possible de définir les paramètres de l'impression avec une maccro ? Et imprimer par la même occasion ?

Merci d'avance !
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 216
25 mai 2012 à 09:25
Bonjour,

met toi en enregistrement de macro et fais une modif dans la mise en page.
Arrete l'enregistreur, dans le code généré tu auras tous les paramètres.
Reste à faire F1 dessus si tu as un doute sur son rôle.

Tu y trouveras par exemple .Orientation = xlLandscape

eric
0
GTA54 Messages postés 414 Date d'inscription jeudi 23 février 2012 Statut Membre Dernière intervention 7 août 2019 27
25 mai 2012 à 10:18
Merci beaucoup !
Ca déchire ! ^^
0
GTA54 Messages postés 414 Date d'inscription jeudi 23 février 2012 Statut Membre Dernière intervention 7 août 2019 27
23 mai 2012 à 12:05
Si c'est impossible dites le moi aussi !


Merci
0
GTA54 Messages postés 414 Date d'inscription jeudi 23 février 2012 Statut Membre Dernière intervention 7 août 2019 27
24 mai 2012 à 14:58
Up please ! =(
0