OVH Cloud OVH Cloud

impression

6 réponses
Avatar
fredbzr
Bonsoir à tous

Un nouveau petit soucis
Voilà, j'ai un tableau dans lequel 5 cellules prédéfinies me commandes 5
userforms différents.
Sur ce tableau j'ai mis un bouton de commande pour lancer l'impression du
document en recto verso car il y a deux pages.
Le code impression en selectionnant le tableau, (selectionne aussi les 5
cellules qui commande les userforms) me déclenche les userforms et me bloque
l'impression (je dois fermer les userforms un à un pour que l'impression se
lance)
Y a t-il un remède à cet inconvénient ?

Merci par avance de votre aide

Fred

6 réponses

Avatar
MichDenis
| Le code impression en selectionnant le tableau

Il y a moyen de lancer l'impression sans sélectionner
les plages de cellules...pour ceci faut voir ton code que
tu utilises pour imprimer.



"fredbzr" a écrit dans le message de news:
4565cd74$0$27402$
Bonsoir à tous

Un nouveau petit soucis
Voilà, j'ai un tableau dans lequel 5 cellules prédéfinies me commandes 5
userforms différents.
Sur ce tableau j'ai mis un bouton de commande pour lancer l'impression du
document en recto verso car il y a deux pages.
Le code impression en selectionnant le tableau, (selectionne aussi les 5
cellules qui commande les userforms) me déclenche les userforms et me bloque
l'impression (je dois fermer les userforms un à un pour que l'impression se
lance)
Y a t-il un remède à cet inconvénient ?

Merci par avance de votre aide

Fred
Avatar
fredbzr
Bonsoir MichDenis
Voici le code que j'utilise

Private Sub CommandButton1_Click()
Range("A1:AK90").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$90"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A9").Select
End Sub

Merci du coup de main

"MichDenis" a écrit dans le message de news:

| Le code impression en selectionnant le tableau

Il y a moyen de lancer l'impression sans sélectionner
les plages de cellules...pour ceci faut voir ton code que
tu utilises pour imprimer.



"fredbzr" a écrit dans le message de news:
4565cd74$0$27402$
Bonsoir à tous

Un nouveau petit soucis
Voilà, j'ai un tableau dans lequel 5 cellules prédéfinies me commandes 5
userforms différents.
Sur ce tableau j'ai mis un bouton de commande pour lancer l'impression du
document en recto verso car il y a deux pages.
Le code impression en selectionnant le tableau, (selectionne aussi les 5
cellules qui commande les userforms) me déclenche les userforms et me
bloque
l'impression (je dois fermer les userforms un à un pour que l'impression
se
lance)
Y a t-il un remède à cet inconvénient ?

Merci par avance de votre aide

Fred





Avatar
MichDenis
Et si tu essayais ceci :

'----------------------
Private Sub CommandButton1_Click()

With ActiveSheet
.PageSetup.PrintArea = "$A$1:$AK$90"
.PrintOut Copies:=1, Collate:=True
.PageSetup.PrintArea = ""
End With
End Sub
'----------------------



"fredbzr" a écrit dans le message de news:
45671518$0$5077$
Bonsoir MichDenis
Voici le code que j'utilise

Private Sub CommandButton1_Click()
Range("A1:AK90").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$90"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A9").Select
End Sub

Merci du coup de main

"MichDenis" a écrit dans le message de news:

| Le code impression en selectionnant le tableau

Il y a moyen de lancer l'impression sans sélectionner
les plages de cellules...pour ceci faut voir ton code que
tu utilises pour imprimer.



"fredbzr" a écrit dans le message de news:
4565cd74$0$27402$
Bonsoir à tous

Un nouveau petit soucis
Voilà, j'ai un tableau dans lequel 5 cellules prédéfinies me commandes 5
userforms différents.
Sur ce tableau j'ai mis un bouton de commande pour lancer l'impression du
document en recto verso car il y a deux pages.
Le code impression en selectionnant le tableau, (selectionne aussi les 5
cellules qui commande les userforms) me déclenche les userforms et me
bloque
l'impression (je dois fermer les userforms un à un pour que l'impression
se
lance)
Y a t-il un remède à cet inconvénient ?

Merci par avance de votre aide

Fred





Avatar
fredbzr
Je viens d'essayer et j'ai le message d'erreur 1004 : impossible de définir
la propriété printarea de la classe pagesetup

"MichDenis" a écrit dans le message de news:
uYs%23RC$
Et si tu essayais ceci :

'----------------------
Private Sub CommandButton1_Click()

With ActiveSheet
.PageSetup.PrintArea = "$A$1:$AK$90"
.PrintOut Copies:=1, Collate:=True
.PageSetup.PrintArea = ""
End With
End Sub
'----------------------



"fredbzr" a écrit dans le message de news:
45671518$0$5077$
Bonsoir MichDenis
Voici le code que j'utilise

Private Sub CommandButton1_Click()
Range("A1:AK90").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$AK$90"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A9").Select
End Sub

Merci du coup de main

"MichDenis" a écrit dans le message de news:

| Le code impression en selectionnant le tableau

Il y a moyen de lancer l'impression sans sélectionner
les plages de cellules...pour ceci faut voir ton code que
tu utilises pour imprimer.



"fredbzr" a écrit dans le message de news:
4565cd74$0$27402$
Bonsoir à tous

Un nouveau petit soucis
Voilà, j'ai un tableau dans lequel 5 cellules prédéfinies me commandes 5
userforms différents.
Sur ce tableau j'ai mis un bouton de commande pour lancer l'impression du
document en recto verso car il y a deux pages.
Le code impression en selectionnant le tableau, (selectionne aussi les 5
cellules qui commande les userforms) me déclenche les userforms et me
bloque
l'impression (je dois fermer les userforms un à un pour que l'impression
se
lance)
Y a t-il un remède à cet inconvénient ?

Merci par avance de votre aide

Fred










Avatar
MichDenis
| Je viens d'essayer et j'ai le message d'erreur 1004 : impossible de définir
| la propriété printarea de la classe pagesetup

Il va falloir que tu précises davantage quelle est la nature de ton problème
car cette macro devrait fonctionner correctement.
Avatar
fredbzr
En fait j'utilise ce code dans l'application précédente (voir pièce jointe
dans le message majuscule minuscule ) pour imprimer un document en recto
verso.
Dans ce document 5 cellules font appel à 5 userforms et lorsque la macro
sélectionne mon document pour l'impression, elle sélectionne également mes 5
cellules (ce qui est logique) et me déclenche par conséquent les userforms
et bloque l'impression
"MichDenis" a écrit dans le message de news:
OSkpTa$

| Je viens d'essayer et j'ai le message d'erreur 1004 : impossible de
définir
| la propriété printarea de la classe pagesetup

Il va falloir que tu précises davantage quelle est la nature de ton
problème
car cette macro devrait fonctionner correctement.