Customviews vba excel
Fermé
benoit_iund
Messages postés
121
Date d'inscription
jeudi 29 janvier 2004
Statut
Membre
Dernière intervention
30 mai 2008
-
25 août 2004 à 17:55
benoit_iund Messages postés 121 Date d'inscription jeudi 29 janvier 2004 Statut Membre Dernière intervention 30 mai 2008 - 26 août 2004 à 11:21
benoit_iund Messages postés 121 Date d'inscription jeudi 29 janvier 2004 Statut Membre Dernière intervention 30 mai 2008 - 26 août 2004 à 11:21
A voir également:
- Customviews vba excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
2 réponses
Utilisateur anonyme
26 août 2004 à 02:52
26 août 2004 à 02:52
Bonjour,
1) Ouvrez le fichier Excel
2) //Démarrer/Panneau de configuration/Imprimante
3) Double clic sur imprimante
4) Menu Imprimante -> Choisir Suspendre l'impression
5) Retourner a Excel
6) Menu Outils/Macro/Nouvelle macro...
7) Spécifier le nom du code
8) Parmètrer votre impression et lancer la.
9) Arrêter l'enregistreur (nouveau bouton carré)
10) Désuspendre les impression par le même chemin
11) De retour à Excel -> [Alt F11] pour éditeur vba
12) Repérer le module le code s'y trouve, il vous suffit de nettoyer.
Ex. :
Sub Macro1()
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.28)
.HeaderMargin = Application.InchesToPoints(0.41)
.FooterMargin = Application.InchesToPoints()
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
Lupin
~ce ne sont toujours que des octets~
~de simples bits~
1) Ouvrez le fichier Excel
2) //Démarrer/Panneau de configuration/Imprimante
3) Double clic sur imprimante
4) Menu Imprimante -> Choisir Suspendre l'impression
5) Retourner a Excel
6) Menu Outils/Macro/Nouvelle macro...
7) Spécifier le nom du code
8) Parmètrer votre impression et lancer la.
9) Arrêter l'enregistreur (nouveau bouton carré)
10) Désuspendre les impression par le même chemin
11) De retour à Excel -> [Alt F11] pour éditeur vba
12) Repérer le module le code s'y trouve, il vous suffit de nettoyer.
Ex. :
Sub Macro1()
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.28)
.HeaderMargin = Application.InchesToPoints(0.41)
.FooterMargin = Application.InchesToPoints()
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
Lupin
~ce ne sont toujours que des octets~
~de simples bits~
benoit_iund
Messages postés
121
Date d'inscription
jeudi 29 janvier 2004
Statut
Membre
Dernière intervention
30 mai 2008
43
26 août 2004 à 11:21
26 août 2004 à 11:21
merci lupin, mais je developpe une interface permettant de choisir les affiches personnalisés a lancer en impression. Et mon code en VBA utilise l'objet customviews. C avec cette objet que je souhaite lancer mes impressions. Je ne maitrise pas assez les macros...
Et je souhaite surtous eviter une succession d'affichage des customviews lors du lancement de leur impression.
Merci qund meme
a+
Et je souhaite surtous eviter une succession d'affichage des customviews lors du lancement de leur impression.
Merci qund meme
a+
