Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel HELP HELP!!! xluserdefined veut rien savoir!

HELP HELP!!! xluserdefined veut rien savoir!

4 réponses
Avatar
christophe
bonjour tous

j'ai une procédure où je gere la mise ne page d'un document , mon format de
papier est special est donc au niveau de l'impriamnte definie comme
userdefined

je fais appel a ce format avec la commande
.PaperSize = xlUserDefined
mais voila ca marche pas car en fait je change de pc pour migrer la procédure
hier j'ai demande si il y avait un moyen de definir le format d'impression
et michdenis m'a rempondu mais la procedure qu'il m'a donner ne fonctionne
pas chez moi.

alors comment puis faire

merci d'avance car la je PATAUGE

christophe
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Yvan
Bonjour Christophe.

Ne pourrais-tu pas redéfinir la mise en page des feuilles concernées dans
les WorkSheets("Feuilx").PageSetup, par exemple dans le Sub
WorkBook_BeforePrint de ton classeur? Quelque chose comme çà:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Feuil1").PageSetup
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
'---------------------
'--------------------
.Draft = False
.PaperSize = xlPaperA4
End With

With Worksheets("Feuil2").PageSetup
.PrintQuality = 600
.CenterHorizontally = True
'---------------------
'--------------------
.Draft = False
.PaperSize = xlPaperA4
End With
End Sub


Il me semble bien avoir procédé comme celà il y a quelque temps, et que çà
s'était bien passé.

En tout cas, si ce n'est pas vraiment la solution, çà te donnera peut-être
une idée pour t'en sortir!

@+. Bon courage!

Yvan


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

bonjour tous

j'ai une procédure où je gere la mise ne page d'un document , mon format
de
papier est special est donc au niveau de l'impriamnte definie comme
userdefined

je fais appel a ce format avec la commande
.PaperSize = xlUserDefined
mais voila ca marche pas car en fait je change de pc pour migrer la
procédure
hier j'ai demande si il y avait un moyen de definir le format d'impression
et michdenis m'a rempondu mais la procedure qu'il m'a donner ne fonctionne
pas chez moi.

alors comment puis faire

merci d'avance car la je PATAUGE

christophe



Avatar
christophe
Re Yvan

J'ai redefinir dans Private Sub Workbook_BeforePrint(Cancel As Boolean)
mes mise en page mais il me reste un pb a resoudre c'est que je n'arrive pas
a forcer la taille du papersize qui n'es pas un format de papier stándard.

as tu une astuce pour que je puisse definir les formats de papier suivant ce
que je dois imprimer puisque aucune n'est standard et que la commande
xlpaperuser je n'arrive pas a y mettre de valeur


Bonjour Christophe.

Ne pourrais-tu pas redéfinir la mise en page des feuilles concernées dans
les WorkSheets("Feuilx").PageSetup, par exemple dans le Sub
WorkBook_BeforePrint de ton classeur? Quelque chose comme çà:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Feuil1").PageSetup
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
'---------------------
'--------------------
.Draft = False
.PaperSize = xlPaperA4
End With

With Worksheets("Feuil2").PageSetup
.PrintQuality = 600
.CenterHorizontally = True
'---------------------
'--------------------
.Draft = False
.PaperSize = xlPaperA4
End With
End Sub


Il me semble bien avoir procédé comme celà il y a quelque temps, et que çà
s'était bien passé.

En tout cas, si ce n'est pas vraiment la solution, çà te donnera peut-être
une idée pour t'en sortir!

@+. Bon courage!

Yvan


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

bonjour tous

j'ai une procédure où je gere la mise ne page d'un document , mon format
de
papier est special est donc au niveau de l'impriamnte definie comme
userdefined

je fais appel a ce format avec la commande
.PaperSize = xlUserDefined
mais voila ca marche pas car en fait je change de pc pour migrer la
procédure
hier j'ai demande si il y avait un moyen de definir le format d'impression
et michdenis m'a rempondu mais la procedure qu'il m'a donner ne fonctionne
pas chez moi.

alors comment puis faire

merci d'avance car la je PATAUGE

christophe








Avatar
Yvan
Re-Bonjour Christophe.

Je viens de rechercher encore une fois, mais sans succès. Rien de neuf.

Je crois que le meilleur moyen pour t'en sortir, c'est de choisir, parmi les
formats standard, celui qui est immédiatement supérieur à ton format réel,
et de recalculer les marges droite, gauche, supérieure et inférieure de ton
document en conséquence.

Ce n'est pas réellement , mais à la guerre comme à la guerre, non?

@+

Yvan

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

Re Yvan

J'ai redefinir dans Private Sub Workbook_BeforePrint(Cancel As Boolean)
mes mise en page mais il me reste un pb a resoudre c'est que je n'arrive
pas
a forcer la taille du papersize qui n'es pas un format de papier
stándard.

as tu une astuce pour que je puisse definir les formats de papier suivant
ce
que je dois imprimer puisque aucune n'est standard et que la commande
xlpaperuser je n'arrive pas a y mettre de valeur


Bonjour Christophe.

Ne pourrais-tu pas redéfinir la mise en page des feuilles concernées dans
les WorkSheets("Feuilx").PageSetup, par exemple dans le Sub
WorkBook_BeforePrint de ton classeur? Quelque chose comme çà:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Feuil1").PageSetup
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
'---------------------
'--------------------
.Draft = False
.PaperSize = xlPaperA4
End With

With Worksheets("Feuil2").PageSetup
.PrintQuality = 600
.CenterHorizontally = True
'---------------------
'--------------------
.Draft = False
.PaperSize = xlPaperA4
End With
End Sub


Il me semble bien avoir procédé comme celà il y a quelque temps, et que
çà
s'était bien passé.

En tout cas, si ce n'est pas vraiment la solution, çà te donnera
peut-être
une idée pour t'en sortir!

@+. Bon courage!

Yvan


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

bonjour tous

j'ai une procédure où je gere la mise ne page d'un document , mon
format
de
papier est special est donc au niveau de l'impriamnte definie comme
userdefined

je fais appel a ce format avec la commande
.PaperSize = xlUserDefined
mais voila ca marche pas car en fait je change de pc pour migrer la
procédure
hier j'ai demande si il y avait un moyen de definir le format
d'impression
et michdenis m'a rempondu mais la procedure qu'il m'a donner ne
fonctionne
pas chez moi.

alors comment puis faire

merci d'avance car la je PATAUGE

christophe










Avatar
michdenis
Bonjour Chistophe,

| et michdenis m'a rempondu mais la procedure qu'il m'a donner ne fonctionne pas

As-tu installé 2 imprimantes à partir du panneau de configuration même si en fait c'est la même imprimante sous 2 noms différents ?

Est-ce que manuellement tu peux définir le format de papier que tu désires ? Est-ce que ton imprimante le supporte ?

Si oui, il me semble que la procédure proposée devrait fonctionnée.


Salutations!



"christophe" a écrit dans le message de news:
bonjour tous

j'ai une procédure où je gere la mise ne page d'un document , mon format de
papier est special est donc au niveau de l'impriamnte definie comme
userdefined

je fais appel a ce format avec la commande
.PaperSize = xlUserDefined
mais voila ca marche pas car en fait je change de pc pour migrer la procédure
hier j'ai demande si il y avait un moyen de definir le format d'impression
et michdenis m'a rempondu mais la procedure qu'il m'a donner ne fonctionne
pas chez moi.

alors comment puis faire

merci d'avance car la je PATAUGE

christophe