J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir d'un
bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de
lignes.
Avez vous une solution pour que l'impression commence au début du tableau
jusqu'à la dernière ligne non vide et est-ce possible que l'ajustement
automatique (pour que le tableau tienne en entier sur la feuille) se fasse
en même temps (lors du clic pour l'impression).
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
Daniel
Bonjour. Le code suivant devrait le faire :
With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430d4a9$0$20140$
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de lignes.
Avez vous une solution pour que l'impression commence au début du tableau jusqu'à la dernière ligne non vide et est-ce possible que l'ajustement automatique (pour que le tableau tienne en entier sur la feuille) se fasse en même temps (lors du clic pour l'impression).
Merci d'avance pour vos solutions
Fred
Bonjour.
Le code suivant devrait le faire :
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4430d4a9$0$20140$8fcfb975@news.wanadoo.fr...
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir
d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de
lignes.
Avez vous une solution pour que l'impression commence au début du tableau
jusqu'à la dernière ligne non vide et est-ce possible que l'ajustement
automatique (pour que le tableau tienne en entier sur la feuille) se fasse
en même temps (lors du clic pour l'impression).
With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430d4a9$0$20140$
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de lignes.
Avez vous une solution pour que l'impression commence au début du tableau jusqu'à la dernière ligne non vide et est-ce possible que l'ajustement automatique (pour que le tableau tienne en entier sur la feuille) se fasse en même temps (lors du clic pour l'impression).
Merci d'avance pour vos solutions
Fred
fredbzr
Bonjour Daniel D'abord merci pour ta rapidité J'ai créé mon bouton et j'y ai inséré ton code: l'impression se lance bien jusqu'à la dernière ligne mais j'ai le tableau sur 2 feuilles, il ne s'est pas ajusté automatiquement sur une seule feuille. As-tu une solution ?
"Daniel" a écrit dans le message de news:
Bonjour. Le code suivant devrait le faire :
With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430d4a9$0$20140$
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de lignes.
Avez vous une solution pour que l'impression commence au début du tableau jusqu'à la dernière ligne non vide et est-ce possible que l'ajustement automatique (pour que le tableau tienne en entier sur la feuille) se fasse en même temps (lors du clic pour l'impression).
Merci d'avance pour vos solutions
Fred
Bonjour Daniel
D'abord merci pour ta rapidité
J'ai créé mon bouton et j'y ai inséré ton code:
l'impression se lance bien jusqu'à la dernière ligne mais j'ai le tableau
sur 2 feuilles, il ne s'est pas ajusté automatiquement sur une seule
feuille.
As-tu une solution ?
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
u9n0GnvVGHA.1868@TK2MSFTNGP09.phx.gbl...
Bonjour.
Le code suivant devrait le faire :
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4430d4a9$0$20140$8fcfb975@news.wanadoo.fr...
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir
d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de
lignes.
Avez vous une solution pour que l'impression commence au début du tableau
jusqu'à la dernière ligne non vide et est-ce possible que l'ajustement
automatique (pour que le tableau tienne en entier sur la feuille) se
fasse en même temps (lors du clic pour l'impression).
Bonjour Daniel D'abord merci pour ta rapidité J'ai créé mon bouton et j'y ai inséré ton code: l'impression se lance bien jusqu'à la dernière ligne mais j'ai le tableau sur 2 feuilles, il ne s'est pas ajusté automatiquement sur une seule feuille. As-tu une solution ?
"Daniel" a écrit dans le message de news:
Bonjour. Le code suivant devrait le faire :
With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430d4a9$0$20140$
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de lignes.
Avez vous une solution pour que l'impression commence au début du tableau jusqu'à la dernière ligne non vide et est-ce possible que l'ajustement automatique (pour que le tableau tienne en entier sur la feuille) se fasse en même temps (lors du clic pour l'impression).
Merci d'avance pour vos solutions
Fred
Daniel
Essaie comme ça :
With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430e83d$0$21268$
Bonjour Daniel D'abord merci pour ta rapidité J'ai créé mon bouton et j'y ai inséré ton code: l'impression se lance bien jusqu'à la dernière ligne mais j'ai le tableau sur 2 feuilles, il ne s'est pas ajusté automatiquement sur une seule feuille. As-tu une solution ?
"Daniel" a écrit dans le message de news:
Bonjour. Le code suivant devrait le faire :
With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430d4a9$0$20140$
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de lignes.
Avez vous une solution pour que l'impression commence au début du tableau jusqu'à la dernière ligne non vide et est-ce possible que l'ajustement automatique (pour que le tableau tienne en entier sur la feuille) se fasse en même temps (lors du clic pour l'impression).
Merci d'avance pour vos solutions
Fred
Essaie comme ça :
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4430e83d$0$21268$8fcfb975@news.wanadoo.fr...
Bonjour Daniel
D'abord merci pour ta rapidité
J'ai créé mon bouton et j'y ai inséré ton code:
l'impression se lance bien jusqu'à la dernière ligne mais j'ai le tableau
sur 2 feuilles, il ne s'est pas ajusté automatiquement sur une seule
feuille.
As-tu une solution ?
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
u9n0GnvVGHA.1868@TK2MSFTNGP09.phx.gbl...
Bonjour.
Le code suivant devrait le faire :
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4430d4a9$0$20140$8fcfb975@news.wanadoo.fr...
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir
d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de
lignes.
Avez vous une solution pour que l'impression commence au début du
tableau jusqu'à la dernière ligne non vide et est-ce possible que
l'ajustement automatique (pour que le tableau tienne en entier sur la
feuille) se fasse en même temps (lors du clic pour l'impression).
With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430e83d$0$21268$
Bonjour Daniel D'abord merci pour ta rapidité J'ai créé mon bouton et j'y ai inséré ton code: l'impression se lance bien jusqu'à la dernière ligne mais j'ai le tableau sur 2 feuilles, il ne s'est pas ajusté automatiquement sur une seule feuille. As-tu une solution ?
"Daniel" a écrit dans le message de news:
Bonjour. Le code suivant devrait le faire :
With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430d4a9$0$20140$
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de lignes.
Avez vous une solution pour que l'impression commence au début du tableau jusqu'à la dernière ligne non vide et est-ce possible que l'ajustement automatique (pour que le tableau tienne en entier sur la feuille) se fasse en même temps (lors du clic pour l'impression).
Merci d'avance pour vos solutions
Fred
fredbzr
Merci Daniel çà fonctionne impeccable Bonne journée "Daniel" a écrit dans le message de news:
Essaie comme ça :
With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430e83d$0$21268$
Bonjour Daniel D'abord merci pour ta rapidité J'ai créé mon bouton et j'y ai inséré ton code: l'impression se lance bien jusqu'à la dernière ligne mais j'ai le tableau sur 2 feuilles, il ne s'est pas ajusté automatiquement sur une seule feuille. As-tu une solution ?
"Daniel" a écrit dans le message de news:
Bonjour. Le code suivant devrait le faire :
With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430d4a9$0$20140$
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de lignes.
Avez vous une solution pour que l'impression commence au début du tableau jusqu'à la dernière ligne non vide et est-ce possible que l'ajustement automatique (pour que le tableau tienne en entier sur la feuille) se fasse en même temps (lors du clic pour l'impression).
Merci d'avance pour vos solutions
Fred
Merci Daniel
çà fonctionne impeccable
Bonne journée
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uONF2VwVGHA.1204@TK2MSFTNGP12.phx.gbl...
Essaie comme ça :
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4430e83d$0$21268$8fcfb975@news.wanadoo.fr...
Bonjour Daniel
D'abord merci pour ta rapidité
J'ai créé mon bouton et j'y ai inséré ton code:
l'impression se lance bien jusqu'à la dernière ligne mais j'ai le tableau
sur 2 feuilles, il ne s'est pas ajusté automatiquement sur une seule
feuille.
As-tu une solution ?
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
u9n0GnvVGHA.1868@TK2MSFTNGP09.phx.gbl...
Bonjour.
Le code suivant devrait le faire :
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement.
Daniel
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
4430d4a9$0$20140$8fcfb975@news.wanadoo.fr...
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir
d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre
de lignes.
Avez vous une solution pour que l'impression commence au début du
tableau jusqu'à la dernière ligne non vide et est-ce possible que
l'ajustement automatique (pour que le tableau tienne en entier sur la
feuille) se fasse en même temps (lors du clic pour l'impression).
Merci Daniel çà fonctionne impeccable Bonne journée "Daniel" a écrit dans le message de news:
Essaie comme ça :
With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430e83d$0$21268$
Bonjour Daniel D'abord merci pour ta rapidité J'ai créé mon bouton et j'y ai inséré ton code: l'impression se lance bien jusqu'à la dernière ligne mais j'ai le tableau sur 2 feuilles, il ne s'est pas ajusté automatiquement sur une seule feuille. As-tu une solution ?
"Daniel" a écrit dans le message de news:
Bonjour. Le code suivant devrait le faire :
With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Range("D1", Range("A65536").End(xlUp)).PrintOut
Cordialement. Daniel "fredbzr" a écrit dans le message de news: 4430d4a9$0$20140$
Bonjour à tous
J'aimerai pouvoir imprimer un tableau en lançant l'impression à partir d'un bouton situé sur ma feuille.
L'inconvénient étant que ce tableau ne comporte jamais le même nombre de lignes.
Avez vous une solution pour que l'impression commence au début du tableau jusqu'à la dernière ligne non vide et est-ce possible que l'ajustement automatique (pour que le tableau tienne en entier sur la feuille) se fasse en même temps (lors du clic pour l'impression).
