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
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
ClémentMarcotte
Avant d'aller plus loin vérifie que l'imprimante par défaut accepte le format en cause. Sinon, il n'y a pas grand espoir.
"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
Avant d'aller plus loin vérifie que l'imprimante par défaut accepte le
format en cause. Sinon, il n'y a pas grand espoir.
"christophe" <cgrosjean@europarl.eu.int> a écrit dans le message de
news:36C125CA-6B5C-47C5-B402-45C515733CE2@microsoft.com...
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" <cgrosjean@europarl.eu.int> a écrit dans le message de
news:
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
Avant d'aller plus loin vérifie que l'imprimante par défaut accepte le format en cause. Sinon, il n'y a pas grand espoir.
"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
christophe
´Bonjour
Oui j'ai deja verifeir et l'imprimante accepte le format
Avant d'aller plus loin vérifie que l'imprimante par défaut accepte le format en cause. Sinon, il n'y a pas grand espoir.
"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
´Bonjour
Oui j'ai deja verifeir et l'imprimante accepte le format
Avant d'aller plus loin vérifie que l'imprimante par défaut accepte le
format en cause. Sinon, il n'y a pas grand espoir.
"christophe" <cgrosjean@europarl.eu.int> a écrit dans le message de
news:36C125CA-6B5C-47C5-B402-45C515733CE2@microsoft.com...
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" <cgrosjean@europarl.eu.int> a écrit dans le message de
news:
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
Oui j'ai deja verifeir et l'imprimante accepte le format
Avant d'aller plus loin vérifie que l'imprimante par défaut accepte le format en cause. Sinon, il n'y a pas grand espoir.
"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
