Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j’ai fait plusieurs
macro pour les imprimer, j’aurais voulu savoir si dans ma macro ci-dessous je
peux indiqué d’imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________
Pour ton info, c'est Ulysse le roi d'itaque, pas ovide ;-)
A+
Paul V
"LSteph" a écrit dans le message de news: %23Rh$
Bonjour,
La différence:
Tibére rit et la caisse passe JPS Rit et la Ferrari aussi!
chris de C ..Calice de D...Ostie de L et T de tabernouet
Voili qui cordialement ponctuat, itaque Ovidius magnus dixit
LSteph
après cette sortie ovidienne, peut-être eût-il mieux fallu parler de Tibère.... jps
"Paul V" a écrit dans le message de news:
;-))))
Tu ris, JPS, et Tibert est en colère.
Paul V
"jps" a écrit dans le message de news:
heu, Tibert, les lignes vides ne s'impriment que très rarement...perso, je ne l'ai pas encore vu... jps
"Tibert" a écrit dans le message de news:
Bonjour à tous; Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait plusieurs macro pour les imprimer, j'aurais voulu savoir si dans ma macro ci-dessous je peux indiqué d'imprimer que les lignes remplies si oui comment ? Salutations ________________________________________ Sub ImprimerBon() ' Range("A1:F148").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250" Range("A2").Select End Sub ________________________________________
Voila qui est fort ;-)))
Pour ton info, c'est Ulysse le roi d'itaque, pas ovide ;-)
A+
Paul V
"LSteph" <lcocosteph@frite.fr> a écrit dans le message de news:
%23Rh$Ni3KHHA.3560@TK2MSFTNGP02.phx.gbl...
Bonjour,
La différence:
Tibére rit et la caisse passe
JPS Rit et la Ferrari aussi!
chris de C ..Calice de D...Ostie de L et T de tabernouet
Voili qui cordialement ponctuat, itaque Ovidius magnus dixit
LSteph
après cette sortie ovidienne, peut-être eût-il mieux fallu parler de
Tibère....
jps
"Paul V" <nobody@home.ir> a écrit dans le message de news:
eCOUirzKHHA.5104@TK2MSFTNGP06.phx.gbl...
;-))))
Tu ris, JPS, et Tibert est en colère.
Paul V
"jps" <vaderetrosp@mas> a écrit dans le message de news:
ODYb7izKHHA.2140@TK2MSFTNGP03.phx.gbl...
heu, Tibert, les lignes vides ne s'impriment que très rarement...perso,
je ne l'ai pas encore vu...
jps
"Tibert" <syleg35@hotmail.fr> a écrit dans le message de news:
C7D6752B-C2F5-4797-9836-908A3AAE21D6@microsoft.com...
Bonjour à tous;
Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait
plusieurs
macro pour les imprimer, j'aurais voulu savoir si dans ma macro
ci-dessous je
peux indiqué d'imprimer que les lignes remplies si oui comment ?
Salutations
________________________________________
Sub ImprimerBon()
'
Range("A1:F148").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250"
Range("A2").Select
End Sub
________________________________________
Pour ton info, c'est Ulysse le roi d'itaque, pas ovide ;-)
A+
Paul V
"LSteph" a écrit dans le message de news: %23Rh$
Bonjour,
La différence:
Tibére rit et la caisse passe JPS Rit et la Ferrari aussi!
chris de C ..Calice de D...Ostie de L et T de tabernouet
Voili qui cordialement ponctuat, itaque Ovidius magnus dixit
LSteph
après cette sortie ovidienne, peut-être eût-il mieux fallu parler de Tibère.... jps
"Paul V" a écrit dans le message de news:
;-))))
Tu ris, JPS, et Tibert est en colère.
Paul V
"jps" a écrit dans le message de news:
heu, Tibert, les lignes vides ne s'impriment que très rarement...perso, je ne l'ai pas encore vu... jps
"Tibert" a écrit dans le message de news:
Bonjour à tous; Dans ma feuille il y a plusieurs zone imprimable dont j'ai fait plusieurs macro pour les imprimer, j'aurais voulu savoir si dans ma macro ci-dessous je peux indiqué d'imprimer que les lignes remplies si oui comment ? Salutations ________________________________________ Sub ImprimerBon() ' Range("A1:F148").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveSheet.PageSetup.PrintArea = "$A$1:$F$250" Range("A2").Select End Sub ________________________________________
LSteph
.. Voilà qui ferait l'objet d'une attention annuelle!
:o))))))
lSteph (qui vient de perdre 300g par crampes abdominales)
:-)))))) quelle frite, notre popaul! l'année 2006 ne lui aura pas été trop pesante, semble-t-il.... jps
..
Voilà qui ferait l'objet d'une attention annuelle!
:o))))))
lSteph
(qui vient de perdre 300g par crampes abdominales)
:-))))))
quelle frite, notre popaul! l'année 2006 ne lui aura pas été trop
pesante, semble-t-il....
jps
