HELP HELP!!! xluserdefined veut rien savoir!

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

"Yvan" a écrit :

> 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" <cgrosjean@europarl.eu.int> a écrit dans le message de news:
> FA69DF8B-06D6-47FE-967C-9DC0B818D8AE@microsoft.com
> > 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